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Мы не в силах повысить качество 
Вашего интернет-соединения... 


Но мы можем повысить эффективность его работы!!! 


бе ВебеЕ бешхе! 


Юебеё — это менеджер закачек, позволяющий легко и быстро 
скачивать файлы с ЕТР- и НТТР-серверов. Если увас хороший канал, 
КесеЁ использует все преимущества вашего интернет-соединения. 
Если качество связи оставляет желать лучшего, КеСеЁ позволит 
свести неудобства к минимуму и гарантированно скачать все 
файлы. 


РеСеё Бешхе — новое слово в мире менеджеров закачек для 
профессионалов. Он совместим со всеми платформами И/паом$ и 
всеми популярными браузерами. Он не только увеличивает скорость 
скачивания в 5 - 40 раз, но и обладает широким диапазоном возмож- 
ностей для управления закачками. 


— При помощи встроенного многофункционального планировщика 
вы можете установить любое действие Кесе! Бе/ихе для запуска в 
определенное время, регулярно или в зависимости от другого 
события. 


— Менеджер сайтов позволяет устанавливать настройки для 
каждого сервера, с которого вы будете скачивать информацию. 


— Архив с возможностью поиска сохранит информацию обо всех 
файлах, которые вы скачивали. Вы больше не забудете, когда и 
откуда вы скачивали файл, и где он теперь находится на вашем 
жестком диске. 


РеСе оптимизирован для работы на российских телефонных ли- 
ниях. Ему не страшны обрывы связи, плохие каналы, загруженные 
серверы. 


РеСеЕ Бе/ихе — менеджер закачек высшего класса! 


Скачай себе нобую версию! 


илили/.гесе?. сот | 


Введение 


Предлагаемая книга является самоучителем по одному из разделов в области 
технологий разработки \!еБ-приложений. При создании интерактивных доку- 
ментов в качестве языка сценариев используется язык Лауа$сире. В нем удачно 
сочетаются основные понятия современного программирования, практич- 
ность и наличие средств поддержки идей объектно-ориентированного про- 
граммирования. При написании книги ставилась задача предоставить сведе- 
ния для Получения элементарных практических навыков по составлению 
сценариев, на простых и содержательных примерах продемонстрировать ос- 
новные идеи и методы, принятые в современном программировании. 


Язык сценариев ЛауафспрЕ предназначен для создания интерактивных 
НТМЕ-документов. Обычно ему отводится роль поддержки диалога с поль- 
зователем, применения для создания сценариев, обеспечивающих привлека- 
тельный вид \!е-страниц. Но Лауа$спирЕ прекрасно подходит и для обучения 
основам программирования. Центральным аспектом языка является понятие 
объекта, поэтому уже при начальном изучении основ программирования 
учащийся вводится в круг представлений о современных технологиях. Для 
студентов гуманитарной направленности знание языка в предложенном объ- 
еме является достаточным для использования его в профессиональной дея- 
тельности при подготовке \\еБ-документов. 


_ Язык Лауазсир! позволяет обрабатывать исходные данные, представленные с 
помощью различных элементов управления, создавать тестирующие про- 
граммы, осуществлять контроль вводимых данных и многое другое. Можно 
создавать как итеративные, так и рекурсивные сценарии, использовать про- 
цедурный тип данных для решения многих классов задач, организовывать 
работу со стандартными объектами, обрабатывать текстовую информацию и 
решать другие задачи. 


Каждый из теоретических разделов книги содержит большое количество 
примеров решения задач из различных областей: обработка символьной ин- 
формации, численные расчеты, работа с изображениями, создание меню, 
обеспечение навигации по У№еБ-документам и др. В частности, рассматри- 
ваются алгоритмы, которые обсуждаются в школьном курсе информатики, 
представлены записи этих алгоритмов на языке Лауа$ спре. 


В конце каждой главы приводятся упражнения, которые предлагается вы- 
полнить самостоятельно для закрепления рассмотренного материала. Мате- 
риал книги построен таким образом, что новые понятия объясняются в тот 
момент, когда все ранее описанные средства уже образуют некоторую сис- 
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тему. Таким образом, В зависимости от наличия времени допустимо изуче- 
ние материала в объеме нескольких тем. 


Первая часть книги ориентирована на читателей, не знакомых с программи- 
рованием, но желающих получить простые навыки, позволяющие в одних 
случаях сделать свой \!еб-документ более привлекательным. В других случа- 
ях требуется написать сценарий для простого анализа данных, например, 
для обработки анкеты. Для таких читателей важно уметь создавать меню, 
помещать в документ изображения, извлекать расположенные на \Уе- 
странице данные, которые могут представляться с помощью переключате- 
лей, флажков, списков, текстовых полей и т. д. Вычисления в аналогичных 
задачах несложные, поэтому и реализованные сценарии будут простыми. 
В этой части подробно описываются создаваемые документы и используе- 
мые сценарии. Такая степень детализации может быть излишней для сле- 
дующей предполагаемой категории читателей. 


Вторая часть книги предназначена для читателей, желающих ознакомиться с 
принципами современного программирования, научиться создавать более 
сложные сценарии. Спор о том, какой язык программирования выбрать в 
качестве базового, так окончательно не решен и, видимо, не будет решен 
никогда. Общепризнанным языком при обучении основам программирова- 
ния является язык Паскаль. Так как любой язык — это способ записи алго- 
ритмов, то целесообразно использовать в качестве базового языка Гауазсире, 
по крайней мере, для тех категорий пользователей, которым не потребуется 
работать со сложными структурами данных типа деревьев, графов и т. д. 
Основное внимание обращается на методы решения различных задач, обсу- 
ждаются итерационные алгоритмы, алгоритмы обработки текстовой инфор- 
мации, классические алгоритмы работы с массивами. Рассматриваются за- 
дачи, при решении которых осуществляется работа с датами, применяются 
численные методы и др. Во второй части рассматриваются такие объекты 
Тауа$сире как $&г1па, Рафа, Аггау И Те основные методы, которые преду- 
смотрены в языке сценариев для работы со стандартными объектами. 
В книге обсуждаются решения задач, которые рассматриваются, как прави- 
ло, в курсах, посвященных основам программирования. 


И, наконец, третья категория читателей — изучившие основы программиро- 
вания и умеющие писать программы на каком-либо из распространенных 
процедурных языков, может обратиться к последней части книги. Таких чи- 
тателей, как правило, интересуют лишь отдельные аспекты использования 
Лауа5спре. Например, процедурный тип данных и его реализация в языке 
Лауазсире методы работы со строками, которых нет в других языках про- 
граммирования, особенности создания массивов и методы, характерные 
лишь для языка Лауазсирь, и т. п. Для них в третьей части рассматриваются 
рекурсивные методы решения задач, приводятся примеры сценариев, ис- 
пользующих рекурсивные функции, обсуждается метод исчерпывающего 
перебора и его реализация при решении конкретных задач, а также рассмат- 
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риваются задачи, при решении которых используется метод рекурсивного 
спуска. 


Особо хочется обратить внимание читателей на последние две главы. Они 
посвящены решению задач, традиционно относящихся к искусственному 
интеллекту, — одной из активно развивающихся областей информатики. 
Способы представления знаний, понятие логического следствия, получение 
новых знаний из уже доказанных — неполный перечень тем, которые рас- 
сматриваются в этих главах. В книге приводится необходимый для понима- 
ния проблем теоретический материал. Р. Смаллиан написал ряд занима- 
тельных книг по математической логике [15]. Для иллюстрации теоре- 
тического материала и в качестве упражнений для самостоятельного реше- 
ния используются, в основном, задачи из этих увлекательных книг. 


Отдельная глава посвящена методам поиска доказательства. Рассмотрены 
различные стратегии поиска, сформулированы задания на разработку сцена- 
риев поиска решений. ЛауазспрЕ располагает мощными средствами для ра- 
боты с формулами, воспользоваться которыми рекомендуется при решении 
аналогичных задач. 


При изучении языка сценариев ЛауаЗсир( предполагается, что читатель зна- 
ком с основами языка НТМГ, хотя не исключается возможность "парал- 
лельного" изучения НТМГ и Лауазспр:. В книге, как правило, представлены 
не только функции Лауа$сире, решающие задачу, но полностью НТМГ-код 
документа. Приведенные примеры служат для закрепления навыков созда- 
ния НТМЕ-страниц, поэтому полезна не только функция, но весь документ. 
Кроме того, во многих задачах требуется создание документа определенной 
заданной структуры. Более того, многие сценарии на языке Лауа$спре при- 
званы "оживить" НТМГ, т.е. цель создания сценария заключается в том, 
чтобы продемонстрировать, как будет меняться вид страницы при измене- 
нии значений параметров НТМГ-тегов. Вместе собранные и должным обра- 
зом оформленные такого рода сценарии являются примером разработанного 
\У!еб-приложения. 


Для некоторых задач приводится несколько вариантов решения, каждый из 
них отличается набором тех средств, которые к данному моменту рассмот- 
рены, и которые читатель может использовать при построении сценария. 


Для закрепления пройденного материала рекомендуется выполнять упраж- 
нения, предложенные в конце каждой главы и подобранные таким образом, 
чтобы не вызывать затруднения у тех, кто внимательно изучил и понял ма- 
териал очередной главы. Задачи, составляющие упражнения, как правило, 
имеют одинаковую сложность и могут использоваться в качестве индивиду- 
альных заданий при обучении студентов в компьютерном классе. 


При работе с книгой предполагается, что читатель знаком именно с основа- 
ми НТМЕГ. Если читатель знает каскадные таблицы стилей, то некоторые 
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задачи можно решить, используя стили, иным способом, чем тот, что пред- 
ложен в книге. Такие сценарии полезно написать в качестве упражнения. 


Самоучитель разработан на основе опыта преподавания курса информатики 
для студентов математических и гуманитарных специальностей, для слуша- 
телей факультета повышения квалификации. 


Я признательна студентам и аспирантам, которые не только прослушали 
мой курс лекций по технологии создания \е-публикаций, но и выполнили 
многочисленные индивидуальные задания и курсовые работы. 


Я благодарна Сенину Владимиру Даниловичу и Керову Леониду Александ- 
ровичу за предоставленную мне возможность работать по интересующей 
тематике. Хочу поблагодарить за сотрудничество Позднякова Сергея Нико- 
лаевича, любезно согласившегося прочесть рукопись. Выражаю глубокую 
благодарность Лаврову Святославу Сергеевичу, впервые прочитавшему в 
университете курс лекций по искусственному интеллекту. Хочу выразить 
благодарность Рыбакову Евгению Евгеньевичу, после общения с которым 
возник замысел создания книги. Я признательна Дмитриеву Юрию Игоре- 
вичу за неоценимую помощь при работе над книгой и подготовке рукописи 
к публикации. 


Надеюсь, что книга будет полезна школьникам, студентам младших курсов, 
слушателям курсов повышения квалификации и всем, кто интересуется во- 
просами создания и использования \!е5-приложений. 


ЧАСТЬ | 


Язык Чауазспир" для начинающих 


Глава 1. 
Глава 2. 
Глава 3. 
Глава 4. 
Глава 5. 
Глава 6. 


Глава 7. 


Основные положения 

Организация ветвлений в программах 
Объекты клиента 

Переключатели 

Флажки 

Списки 


Фреймы 


Глава 1 


Основные положения 


Язык сценариев Чауа$ стр! 


Язык программирования ЛауаЗспр( разработан фирмой Ме!саре в сотрудни- 
честве с Зип М!сгозует$ и предназначен для создания интерактивных 
НТМГ-документов. Основные области использования Лауа$спр: таковы: 


С] создание динамических страниц, т. е. страниц, содержимое которых мо- 
жет меняться после загрузки документа, 


С) проверка правильности заполнения пользователем форм до пересылки их 
на сервер; 


С решение "локальных" задач с помощью сценариев 
и некоторые другие сферы. 


Тауа$сире позволяет создавать приложения, выполняемые как на стороне 
клиента, так и на стороне сервера. При разработке приложений обоих типов 
используется так называемое ядро, в котором содержатся определения стан- 
дартных объектов. Клиентские приложения выполняются браузером на ма- 
шине пользователя. 


Программа (сценарий) на языке ЛауаЗсир( обрабатывается встроенным в 
браузер интерпретатором. Надо стремиться к тому, чтобы написанные сце- 
нарии корректно выполнялись в любом браузере. На первоначальном этапе 
обучения добиться удовлетворения этого требования сложно. Предлагаемые 
в книге сценарии отлаживались в Пиегпе: Ехр]огег версии 4.01 и выше. 


Программа (сценарий) на языке Лауа$сир( представляет собой последователь- 
ность операторов. Если несколько операторов располагаются на одной стро- 
ке, то между ними следует поставить знак "точка с запятой" (;). Если каж- 
дый оператор размещается на одной строке, то разделитель можно не 


писать. Один оператор может располагаться на нескольких строках. 


Согласно принципам структурного программирования, программу рекомен- 
дуется записывать таким образом, чтобы в ней была отражена блочная 
структура. Это облегчает исследование программы и поиск ошибок. 


В программах на Лауа5сирЕ можно использовать комментарии. Для того чтобы 
задать комментарий, располагающийся на одной строке, достаточно перед его 
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текстом поставить две косые черты (//). Если же поясняющий текст занимает 
несколько строк, то его следует заключать между символами /* и */. 


В Лауа$сире строчные и прописные буквы алфавита считаются разными 
символами. 


Литералы 


Простейшие данные, с которыми может оперировать программа, называют- 
ся литералами. Литералы не могут изменяться. Литералы целого типа могут 
быть заданы в десятичном (по основанию 10), шестнадцатеричном (по ос- 
нованию 16) или восьмеричном (по основанию 8) представлении. 


Литерал целого типа в десятичном представлении записывается как после- 
довательность десятичных цифр со знаком или без него, например, 15, 123, 
—156, +3567. 


Шестнадцатеричные числа включают цифры 0—9 и буквы а, В, с, а, е, /. 
Шестнадцатеричные числа записываются с символами 0х перед числом, на- 
пример, 0х25, 0ха1 ‚0х. 


Восьмеричное число включает только цифры 0—7 и записывается, начиная 
с нуля, например, 03, 0543, 011. 


Запись вещественного литерала отличается от записи вещественного числа в 
математике тем, что вместо запятой, отделяющей целую часть от дробной, 
указывается точка, например, 123.34, —22.56. Кроме того, для записи веше- 
ственных чисел можно использовать так называемую экспоненциальную 
форму, например, число 0,000000273, которое можно представить в виде 
2.73х10 -7, в языке Лауа$спре записывается так: 2.73е-7. В такой записи знак 
умножения и число 10 заменяются символом е. В записи вещественного ли- 
терала должна присутствовать, по крайней мере, одна цифра и десятичная 
точка или символ экспоненты (е Или Е). 


Кроме целых и вещественных значений в языке Лауа$ сир! могут встречаться 
так называемые логические значения. Существуют только два логических 
значения: истина и ложь. Первое представляется литералом +гче, второе — 
Га1зе. В некоторых реализациях Лауазсире может быть использована едини- 
ца в качестве егае, и ноль в качестве га1зе. 


Строковый литерал представляется последовательностью символов, заклю- 
ченной в одинарные или двойные кавычки. Примером строкового литерала 
может быть строка "результат" ИЛИ 'результат'. Строковый литерал, пред- 
ставляющий пустую строку, обозначается как "" или ''. 
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Переменные 


Переменные используются для хранения данных. Переменные в сценарии 
представляются с помощью идентификаторов. Идентификатор должен на- 
чинаться с буквы латинского алфавита, либо с символа подчеркивания. Да- 
лее может указываться последовательность, содержащая буквы латинского 
алфавита, цифры или знак подчеркивания, например, +езЕ1, пу {ез+к, 
Еез*_1. Тип переменной зависит от хранимых в ней данных, при изменении 
типа данных меняется тип переменной. Определить переменную можно с 
помощью оператора уаг, например: 


\уаг $езе1 


В данном случае тип переменной {ез{1 не определен и станет известен 
только После присвоения переменной некоторого значения. 


Оператор уаг можно использовать и для инициализации переменной, на- 
пример, конструкцией 


уаг $езЕ2=276 


определяется переменная тезЕ2 и ей присваивается значение 276. 


Значение переменной изменяется в результате выполнения оператора при- 
сваивания. Оператор присваивания может быть использован в любом месте 
программы и способен изменить не только значение, но и тип переменной. 
Оператор присваивания выглядит так 


а=Ь 


где а — переменная, которой мы хотим задать некоторое значение; ь — вы- 
ражение, определяющее новое значение переменной. Пусть в сценарии 
описаны следующие переменные 


уаг п=3725 
уаг х=2.75 
уаг р=ёгие 


уаг 5="Выполнение завершено" 


Переменные п и х имеют тип попьег, тип переменной р — логический, пе- 
ременная 5 имеет тип зег1па. В Тауа$спир! определен тип ЕапсЕ1оп для всех 
стандартных функций и функций, определяемых пользователем. Объекты 
Тауа5сир! имеют тип данных оь}ес+. Переменные типа оь)ес+ часто назы- 
вают просто объектами, они могут хранить объекты. 


Переменные, описанные в сценарии как в части <НЕАО>, так и в части 
<ворУу>, имеют одну и ту же область действия, доступны любому сценарию 
текущего документа. Такие переменные называются глобальными в отличие 
от локальных переменных, определенных в теле функции. 
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Выражения 


Выражения строятся из литералов, переменных, знаков операций, скобок. 
В результате вычисления выражения получается единственное значение, 
которое может быть либо числом (целым или вещественным), либо строкой, 
либо логическим значением. Используемые в выражении переменные долж- 
ны быть инициализированы. Если при вычислении выражения встречается 
неопределенная или неинициализированная переменная, то фиксируется 
ошибка. В Лауазсир( существует литерал по11 для обозначения неопреде- 
ленного значения. Если переменной присвоено значение по11, то она счи- 
тается инициализированной. 


Выражения формируются из операндов и обозначений операций. Например, в 
формуле а*ь операндами являются а и Ь, обозначением операции — знак *. 


Операции делятся на унарные (одноместные) или бинарные (двуместные). Вы- 
ражение записывается либо в виде ФА, если ® — обозначение унарной опе- 
рации, либо АФВ, если ® — обозначение бинарной операции. Вычисление 
выражения ФА сводится к вычислению операнда А и применению операции 
Ф к значению операнда. Вычисление выражения вида АФв состоит из сле- 
дующих шагов: 


1. Вычисляются А И В. 
2. Операция ® применяется к значению операндов, полученных на шаге 1. 


В зависимости от типа вычисленного значения выражения можно разделить 
на арифметические, логические и строковые. Арифметические выражения 
получаются при выполнении операций, перечисленных в табл. 1.1. 


Таблица 1.1. Арифметические операции 


Операция Название 
+ = Сложение 
- Вычитание 
* Умножение 
/ Деление 


[® (2 


Остаток от деления целых чисел 
++ ‚ Увеличение значения операнда на единицу 


-- Уменьшение значения операнда на единицу 


Операторы в выражении вычисляются слева направо в соответствии с при- 
оритетами арифметических операций. При необходимости с помощью ско- 
бок можно изменить порядок выполнения операций. В языке Лауа$сире оп- 
ределены операторы, в которых производятся арифметические действия над 
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левым и правым операндом и результат присваивается переменной, задан- 
ной левым операндом. Операции так называемой сокращенной формы при- 
сваивания представлены в табл. 1.2. 


Таблица 1.2. Сокращенные формы оператора присваивания 


Оператор ‚ Эквивалентный оператор присваивания 
Х += У Хх = Х+у 

Хх -= У Х = ХУ 

Х *= У Х = Х*У 

Х /= У Х = Х/У 

Х 5= У Х 


= Х%У 


Операции отношения применимы к операндам любого типа. Результат опе- 
рации — логическое значение +гае, если сравнение верно, и Еа1зе — в про- 
тивном случае. Перечислим операции сравнения: 


О < (меньше); 

С <= (меньше или равно); 
О == (равно); 

О != (не равно); 

О >= (больше или равно); 
С > (больше). 


Операция ! (логическое НЕ) применяется к операндам логического типа, 
если значение операнда а равно +гое, То значение выражения !а — Еа1зе, 
если значение операнда а равно Еа1зе, То значение выражения !а — угче. 
Результат применения логических операций && (логическое И) и || 
(логическое ИЛИ) приведен в табл. 1.3. 


Таблица 1.3. Логические операции 


А В А&ёВ А||В 


гие фкце Егце Схгае 
Еуце Га] зе Еа1зе Ехае 
Га] зе фгиае Еа]1зе Егце . 


Еа]1зе Га]1зе РГа15е Га15е 


Значение выражения А&ёв истинно, если истинны оба операнда, и ЛОЖНО в 
противном случае. Значение выражения дА||в истинно, если значение хотя 
бы одного из операндов истинно, и ложно в противном случае. 
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Над строковыми значениями определена операция конкатенация (соедине- 
ние) строк. Обозначается операция знаком плюс. Результатом выполнения 
этой операции является строка, состоящая из строковых значений операн- 
дов, например, в результате выполнения оператора присваивания 


$ = "текущее "+"состояние" 

переменная 5+ получит значение "текущее состояние". 
Рассмотрим еще один пример. Пусть выполнено 

$1 = "текущий " 

$62 = "момент" 

В результате выполнения 

$1 += 362 

переменная з&1 получит значение "текущий момент". 


Приоритет операций определяет порядок, в котором выполняются операции 
в выражении. В табл. 1.4 перечислены рассмотренные операции в порядке 
убывания приоритетов. 


Таблица 1.4. Таблица приоритетов операций 


Название Обозначение 
Инкремент КО ++ 

Декремент -- 

Отрицание 


Унарный минус - 


Умножение * 

Деление, остаток от деления /, 5 
Сложение + 
Вычитание _ 
Сравнение | <, >, <=, >= 
Равенство | == 
Неравенство | = 
Логическое И && 


Логическое ИЛИ | | 


Присваивание =, +=, -=, *=, /=, $=, != 
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Упражнения 


1. Напишите выражение, истинное тогда и только тогда, когда: 


е значение целой переменной м делится нацело на значение целой пе- 
ременной к; 


е значения вещественных переменных д, вис образуют неубывающую 
последовательность, 


® значение переменной х является наибольшим ‘из трех попарно раз- 
личных значений х, у, 7; 


® НИ Одна из логических переменных а, в, с не истинна; 
» ПО крайней мере одна из логических переменных д, в, С истинна. 


2. Начертите и заштрихуйте область, такую, что заданное выражение, в ко- 
тором значения х и у трактуются как координаты точки на плоскости, 
принимает значение + гие: 


® (Х*у>0); 
® У+Х<5 &5 Х*Х+у*У>1: 
Ф® У<Х*Х+2 || У>6. 


3. Напишите формулу, истинную тогда и только тогда, когда точка на плос- 
кости с координатами х и у попадает в заштрихованную область 
(рис. 1.1—1.4). 


Рис. 1.1. Точка попадает в область, Рис. 1.2. Точка попадает в область, 
образованную исключением двух кругов — образованную исключением квадрата и круга 


Ау 


Г _ 


Рис. 1.3. Точка попадает в область, Рис. 1.4. Точка попадает в область, 
образованную двумя секторами образованную ромбом 
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Сценарии в НТМЁЕ-документе 


Сценарии, написанные на языке Гауа$ сир, могут располагаться непосредст- 
венно в НТМГ-документе между тегами <зсх1рЕ> И </зсх1р%>. 


Одним из параметров тега <зсг1рЕ> является 1апаоаде, который определяет 
используемый язык сценариев. Для языка ЛауазспирЕ значение параметра 
равно "Тауа$сх1ре". Если применяется язык сценариев УВЗсире, то значе- 
ние параметра должно быть равным "УВ$сг1ре". В случае использования 
языка Лауа$спирЕ параметр 1апаиаде можно опускать, т. к. этот язык выбира- 
ется браузером по умолчанию. 


Обычно браузеры, не поддерживающие какие-либо теги НТМГ, эти теги 
просто игнорируют. Попытка браузера проанализировать содержимое не 
поддерживаемых тегов может привести к неверному отображению страницы. 
Чтобы избежать такой ситуации, рекомендуется помещать операторы языка 
ЛауазсирЕ в теги комментария <!-- ... -->. Для правильной работы интер- 
претатора перед. закрывающим тегом комментария --> следует поставить 
символы //. 


Итак, для размещения сценария в НТМГ-документе следует написать сле- 
дующее: 
<5сг1рЕе 1апацаде="Зауа$ск1ре"> 
<!-- 
Операторы языка Фауабсг1ре 


//--> 


</зсг1рЕ> 


Документ может содержать несколько тегов <зсгуре>. Все они последователь- 
но обрабатываются интерпретатором Лауазсире. В следующем примере в раз- 
дел <вору> (в тело) НТМТГ-документа вставлены операторы языка Лауазсире. 


Вычисление площади треугольника 


Необходимо написать сценарий, определяющий площадь прямоугольного 
треугольника по заданным катетам. Сценарий разместим в разделе <вору> 
НТМЕ-документа (листинг 1.1). 


: Листинг 1.1. Первый сценарий в документе 
<НТМТ> 
<НЕАР> 
<ТТТЬЕ>Первый сценарий в документе</ТТТЬЕ> 
</НЕАР> 
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<ВОрУ> 
<Р>Страница, содержащая сценарий. </Р> 
<$сх1рЕ> 
<!-- 


уагт а=8; В=10 


" 


аосощеп® .иг1{фе ("Площадь прямоугольного треугольника равна ", 
а*В/2,".") 
//--> 
</зсг1р&> 
<Р>Конец формирования страницы, содержащей сценарий</Р> 
</ВорУ> 
</НТМЬ> 


В сценарии описываются и инициализируются две переменные, затем зна- 
чение выражения записывается в документ. Для формирования вывода в 
НТМГ-страницу используется метод иг1Ее объекта аосипепт+. Строки, запи- 
сываемые в документ, могут включать в себя теги НТМЕ и выражения 
Лауа$сп!ре. 


Тег <позскх1р&> определяет НТМГ-код, отображаемый на экране в случае, 
если ЛауаЗспр( не поддерживается браузером или поддержка отключена. 
Этот тег следует после кода, заключенного в теги <зсг1ре> И </зсг1ре>. Ес- 
ли поддержка включена, то тег <позсг1р*> игнорируется. 


В дальнейших примерах будем считать, что поддержка ]Лауа$спрЕ включена. 


Функции: описание и использование 


При создании программы разумно выделить в ней логически независимые 
части (так называемые подирограммы). Каждую часть при необходимости 
можно разбить на отдельные подпрограммы и т. д. Разбиение программы на 
подпрограммы облегчает процесс отладки, т. к. позволяет отлаживать каж- 
дую подпрограмму отдельно. Имеет смысл распределить работу по созданию 
сложной программы между отдельными программистами. Некоторые под- 
программы можно использовать для решения разных задач. 


Один раз созданную и отлаженную программу можно использовать произ- 
вольное число раз. 


Во многих языках программирования понятие подпрограммы реализуется с 
помощью конструкций процедур, функций, модулей и т. п. 


Основным элементом языка Лауа$сире является функция. Описание функции 
имеет вид 


Рапсё1оп ЕЁ (У) {5$} 
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где г — идентификатор функции, задающий имя, по которому можно обра- 
щаться к функции; Ур— список параметров функции, разделяемых 
запятыми; $ — тело функции, в нем задаются действия, которые нужно вы- 
полнить, чтобы получить результат. Необязательный оператор гебогп. 
определяет возвращаемое функцией значение. 


Описание функции не может быть вложено в описание другой функции. 
Параметры функции внутри ее тела играют ту же роль, что и обычные пе- 
ременные, но начальные значения этим параметрам присваиваются при об- 
ращении к функции. Если описание функции имеет вид 


ЕопсЕ1оп Е (\%1, \2, ..., Уп) {5$} 


То ВЫЗОВ функции должен иметь вид 


Е (е1, её, ..., еп) 
ГДе е!1, её, .... еп — Выражения, задающие фактические значения парамет- 
ров. Параметры х1, у2, ..., уп, указанные в описании функции, называются 


формальными параметрами, чтобы подчеркнуть тот факт, что они получают 
смысл только после задания в вызове функции фактических параметров е1, 
е2, ..., еп, с КоТорыми функция затем и работает. Если в функции парамет- 
ры отсутствуют, то описание функции имеет вид 


Еапселоп Е () {$} 


Наличие скобок в операторе вызова функции обязательно, т. е. вызов функ- 
ции в этом случае должен иметь вид: 


Е() 


Обычно все определения и функции задаются в разделе <нНЕАО> документа. 
Это обеспечивает интерпретацию и сохранение в памяти всех функций при 
загрузке документа в браузер. 


В следующем примере в разделе заголовка описана функция саге, вычис- 
ляющая площадь прямоугольного треугольника по заданным катетам. 


Сценарий с функцией 


Необходимо написать сценарий, определяющий площадь треугольника по ` 
заданному основанию и высоте. Для вычисления площади воспользуемся 
функцией, описанной в разделе <нЕАр> НТМГ-документа (листинг 1.2). 


Листинг 1.2. Использование сценария с функцией _ 


<НТМЬ> 
<НЕАР> 
<ТТТЬЕ>Использование сценария с функцией</ТТТЬЕ> 


<5сг1ре 1апдцаде="Зауа$сг1р®"> 
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<!-- // 
Еопсе1оп саге (а, НВ) 
{ гебогп а*р/2 } 
//--> 
</зскх1рЕ> 
</НЕАО> 
<ВОрУ> 
<Р>Начало отображения страницы со сценарием и функцией. </Р> 
<зсг1ре> 
<!-- 
уаг а1=4; №1=16 
уаг з=саге (а1,р1) 
Чосомеп® .мг1фе ("При вызове функции получено значение ", з,"."); 
//--> 
</зсг1ре> 
<Р>Конец формирования страницы. 
</ВОрУ> 
</НТМЬ> 


Тело функции состоит лишь из оператора гекогп, который определяет воз- 
врашаемое функцией значение. Вызов функции осуществляется в теле до- 
кумента при выполнении оператора присваивания: з=саге (а1,61). Фор- 
мальным параметрам а и в присваивается значение фактических параметров 
а1 И №1, и выполняется тело функции. Полученное значение помещается в 
документ с помощью метода мг1ке. 


Обработчики событий 


В предыдущих примерах пользователю не предоставлялась возможность 
вводить значения, и в зависимости от них получать результат, например, 
при выполнении функции. 


Интерактивные документы можно создавать, используя формы. Предполо- 
жим, что мы хотим создать форму, в которой поля Основание и Высота слу- 
жат для ввода соответствующих значений. Кроме того, в форме создадим 
кнопку Вычислить. При щелчке мышью по этой кнопке мы хотим получить 
‚ значение площади треугольника. 


Действие пользователя (например, щелчок кнопкой мыши) вызывает собы- 
тие. События в основном связаны с действиями, производимыми пользова- 
телем с элементами форм НТМГ. Обычно перехват и обработка события 
задается в параметрах элементов форм. Имя параметра обработки события 
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начинается с приставки оп, за которой следует имя самого события. Напри- 
мер, параметр обработки события с11ск будет выглядеть как опС11ск. 
Значением параметра обработки события могут быть операторы языка 
Лауазсире. В качестве значения параметра обработки события можно задать 
вызов функции, которая должна выполняться при возникновении события, 
определяемого параметром обработки события. В этом случае может быть 
использована следующая форма: 
<ГОВМ папе="ЁЕогт1"> 

Основание: <1приЕ Еуре="фехЕ" з12е=5 паме="зЕ1"><рг> 

Высота: <1приЕ фуре="фехе" 312е=5 паме="$&2"><Ьг> 

<1приЕ суре="раЕЕоп" уа1це=Вычислить 


опС141ск="саге (Чоситепе . Ёохи1.$%1.уа1ае, Чосимепе .Еоги1.3е2.уа1ае) "> 


</ЕОВМ> 


Обработка значений из формы 


Напишем функцию, вычисляющую площадь треугольника по заданному ос- 
нованию и высоте. Создадим форму для ввода исходных данных. 


НТМГ-код представлен в листинге 1.3. 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Обработка значений из формы</ТТТЬЕ> 
<$сг1ре 1апдцаде="Зауа$ сг1ре"> 
<!-- // 
Еопс&1оп саге (а, В) 
{ таг $= (а* 1) / 2; 
АосцтепеЕ.мг1Ее ("Площадь прямоугольного треугольника равна ",5$); 
гегогп $5 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
<Р>Пример сценария со значениями из формы</Р> 
<РОЁВМ пате="ЁЕоги1 "> 
Основание: <1прае суре="Еехе" $12е=5 папе="5%1"><Вг> 


Высота: <1прие Еуре="бехе" $1хе=5 паще="$2"><Вх> 
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<1приЕ суре="БаЕеоп" уа]ае=Вычислить 
опС11ск="саге (аосомеп® .Еотт1. 561 .уа1ае, аосимеп® . Еотгт1.582.уа1щае) "> 
</ЕОВМ> 
</ВОБУ> 
</НТМЬ> 


Рассмотрим подробнее значение параметра обработки события, представ- 
ляющего собой вызов Функции саге. 


При интерпретации НТМЕ-страницы браузером создаются объекты 
]Лауа5сире. Взаимосвязь объектов между собой представляет иерархическую 
структуру. На самом верхнем уровне иерархии находится объект м1паомз, 
представляющий окно браузера. Объект и1пдомз является предком или роди- 
телем всех остальных объектов. Каждая страница кроме объекта и1паомз 
имеет объект досипепе. Свойства объекта аосимепе определяются содержи- 
мым самого документа: цвет фона, цвет шрифта и т. д. В последнем примере 
на странице расположена форма. Форма (Еогм) является потомком объекта 
аоситеп+, а все элементы формы выступают потомками объекта Роги. Ссыл- 
ка на объект может быть осуществлена по имени, заданному параметром 
паме тега <нтмЪ>. Для получения значения основания треугольника, введен- 
ного в первом поле формы, должна быть выполнена конструкция 


аосомепе. Еоги1.$%1.уа1ае 


При ссылке на формы и их элементы можно не указывать объект аосимепе. 
В рассмотренном примере получить значение первого поля ввода можно и 
следующим образом 


Рог] .$5е1.уа]ае 


Итак, когда в функцию передаются данные простых типов, например, чисел, 
как в рассмотренном случае, передача параметров осуществляется по значению. 
Формальному параметру а присваивается значение фактического параметра 
Еогт1.$Е1.уа1ае, а формальному параметру ь значение Еоги1.5+2.уа1те. 
После этого выполняется тело функции. 


Ситуация изменится, когда фактическим параметром функции станет объ- 
ект. В этом случае говорят, что передача параметра осуществляется по ссылке 
или по наименованию. Пусть тело документа описано следующим образом: 


<ВОрУ> 
<Р>Вычисление площади прямоугольного треугольника</Р> 
<РОВМ паме="Ёогт1"> 
Основание: <1праЕ Еуре="еех®" 5з17е=7 паще="$$1"><Вг> 
Высота: <1праЕ фуре="6ехе" 512е=7 паме="$&2"><рг> 


<1приЕ Еуре="Баётоп" уа]1ае=Вычислить 
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опС11сКк="саге1 (Ёогт1.$%1,Еогт1.$82)"> 
</ЕОВМ> 
</ВОрУ> 


В качестве фактических параметров в вызове Функции саге1 выступают 
имена текстовых полей формы. При вычислении площади используются 
значения, введенные пользователем. Поэтому описание функции ‹саге1 
должно быть таким: 
Еипс®1оп саге] (а, 1) 

{уах з= (а.уа1лае * |.уа1ае)/2; 

Аоситепе.мг1е ("Площадь равна ",5); 


хебагп $5} 


Значение основания треугольника получается с помощью конструкции 
а.уа1ае, а ВЫСОТЫ В.Уа1ае. Приведем описание документа со сценарием 
ПОЛНОСТЬЮ. 


Передача параметров по ссылке 


Напишем сценарий, определяющий площадь треугольника по заданному 
основанию и высоте. В качестве фактических параметров функции будем 
использовать имена текстовых полей формы. 


НТМЕ-код представлен в листинге 1.4. 
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Листинг 1.4. Передача параметров по. ссылке. 


<НТМЬ> 
<НЕАР> 
<ТТТЬЕ>Имена полей формы в качестве параметров</ТТТЬЕ> 
<$5сг1р®е 1апддаае="Зауа$ сг1ре"> 
<!-- // 
Ропс®1оп саге1 (а, В ) 
{ уаг з= (а.уа]ае* В.уа1ае) / 2; 
Чосощеп®.мг1ее ("Площадь равна ",$); 
хебогр $5} 
//--> 
</зсЕ1рЕ> 
</НЕАР> 
<ворУу> 
<Р>Вычисление площади треугольника</Р> 
<ЕОКМ пате="Ёогт1"> 
Основание: <1прие буре="$ехЕ" з12е=7 паше="$&1"><пг> 


Высота: <1праЕ суре="6ехЕ" $12е=7 папе="$%2"><рг> 


Глава 1. Основные положения | 21 


<1приае Суре="Бабфоп" уа]ае=Вычислить 
опС11ск="саге] (Ёоти1.$5Е1,Еот11.$%2) "> 
</ЕОВМ> 
</вору> 
</НТМЕ> 


В следующем примере функции саге? передается лишь один параметр — 
имя формы, а внутри функции определяются конкретные переданные зна- 
чения. 


Использование имени формы 
в качестве параметра функции 


Напишем сценарий, определяющий площадь треугольника по заданному 
основанию и высоте. В качестве фактических параметров функции следует 
использовать имя формы. 

Функция саге? имеет один параметр оь), являющийся именем формы, в 
которой с помощью текстовых полей задаются пользователем значения. Для 
того чтобы использовать в вычислениях значения, заданные с помощью 
формы, требуется применить конструкцию оЪ).зЕ1.уа1те, Т. е. указать имя 
поля формы, а затем выбрать значение (листинг 1.5). 


оолочесосч ооо ва по ооо во соо о ооо овса о сос роч оо с оо ч о ооо осо ооо ооо чо сос ооо ооо 9 чо оо оао то овес ово роо очно оро соо очечо ооо оно ооо со ото оооо осо осо сочочочое. осо о ово оооооочоо ото ц 


"Листинг 1. 5. Параметр функции — — имя формы _ 


<НТМТ> 
<НЕАО> 
<ТТТЬЕ>Параметр функции - имя формы</ТТТЬЕ> 
<5сг1ре 1апдпаде="Зауа5сг1р®"> 
<!-- // 
Еипс®1оп саге? (о) } 
{уаг а=ор).541.уа1е 
уаг П=оь).5Е2.уа1ае 
уаг 3= (а* 1) / 2; 
Чосимепе .мг1ее ("Площадь равна ",з$); 
тебаги $ } 
//--> 
</5сг1рЕ> 
</НЕАР> 
<ВОПУ> 


<Р>Вычисление площади треугольника</Р> 


2 Зак. 834 
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<РГОВКМ папе="ЁЕотта1 "> 
Основание: <1приф Еуре="$ехе" $17е=7 паще="$&1"><ру> 
Высота: <1приЕ буре="ЕехЕ" $12е=7 папе="$&2"><Вг> 
<1приф Еуре="БаЕебоп" уа1ае=Вычислить 

опС11ск="саге2 (Еогт1) "> 
</ЕОЕМ> 
</ВОПУ> 
</НТМЬ> 


В предыдущих примерах вычислялось значение, и для его вывода применял- 
ся метод иг1%е объекта досомепе. Определим в форме поле Площадь, в ко- 
торое будем помещать вычисленное значение. Пусть В теле документа опи- 
сана форма со следующими полями: 
<ЕОВКМ папе="Еоги1"> 

Основание: <1праЕ суре="кехе" $12е=7 паме="$&1"><Вг> 

Высота: <1прае суре="6ех®" $12е=7 паше="зЕ2"><Вг> 

<1приЕ +уре="БаЕЕоп" уа1ае=Вычислить 

опС11скК="саге3 (Ёогм1) "> 


Площадь <1праЕ фуре="$ехе" $12е=7 папе="гез"><рг> 


</ЕГОВМ> 


Опишем функцию сагез следующим образом: 
ЕорпсЕ1оп сагеЗ (оЪ)) 

{уаг а=оЪ).5%1.ха1ае 

уаг П=ор).5Е2.уа1ае 


уаг з= (а* В) / 2; 


о] .гез.уа11ае=з} 


В результате щелчка по кнопке Вычислить в поле с именем гез будет поме- 
щено требуемое значение. В приведенных примерах значением параметра 
обработки события было имя функции, которая вызывалась, когда происхо- 
дило событие. В общем случае значением параметра обработки события 
могут быть и другие операторы языка Гауа$сп!ре. 


В следующем примере мы не будем описывать функцию для вычисления 
площади треугольника. В результате щелчка мышью по кнопке Вычислить в 
поле гез будет помещено вычисленное значение. Значением параметра об- 
работки события в этом случае выступает оператор присваивания. 


Оператор присваивания 


Создадим программу, позволяющую получать площадь треугольника по за- 
данному основанию и высоте (листинг 1.6). 
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Листинг 1. 6. Использование: ‘оператора присваивания для вычисления _ 
: значения параметра обработки события | | 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Оператор присваивания в качестве значения параметра 
обработки события</ТТТЬЕ> 
<ВОПУ> 
<Р>Вычисление площади треугольника по основанию и высоте</Р> 
<РОЕВМ патме="ЁЕогт1"> 
Основание: <1прае $уре="$ехе" 3з17хе=7 паме="$1"><рг> 
Высота: <1праЕ буре="Еехе" $12е=7 паще="з$2"><Вг> 
<1пра® суре="роЕ$оп" уа]1ае=Вычислить 
опС11ск="Еог1 .гез.уа1ае= (Ёогт1.581.уа1ае* Ёоги1.3%2.уа1ае) /2"> 
Площадь <1приЕ буре="фехе" з12е=7 паще="гез"><Ву> 
</ЕОВМ> 
</ворУу> 
</НТМЬ> 


Вычисление среднего дохода 


Вводится информация о доходах за каждый месяц первого полугодия. Тре- 
буется написать сценарий определения среднего дохода в месяц за рассмат- 
риваемый период. 


Введите начисленную сумму гонорара за следующие месяцы 


Январь: [300 
| Февраль: [200 


1 Март: 
Апрель: 
Май: 


| Июнь: 


Средняя зарплата за полгода: [350 


Вычислить” | _ Обновить. 


р Ут 


[=] Готово. ий _ | 8) Мой компьютер о А 


——що =) мы 


Рис. 1.5. Вычисление среднего дохода 
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На рис. 1.5 изображен документ после заполнения полей формы и вычисле- 
ния результата. 


Приведем документ со сценарием вычисления среднего дохода за рассмат- 
риваемый период (листинг 1.7). 


Оооо Оооо оо оо в ооо о на © ооо ооо о чо ооо оо ооо ос оч ооо ото ооо ооо ооо оао остов оон ооо ос ооо ооо ооо чооооо ооосоочоо соо оос ото очоо соо хоче ооо члосрозооосоооо осроооооооьоо ® 


, Листинг 1.7. Вычисление среднего дохода _ 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Вычисление среднего дохода</&1е1е> 
<5сг1рё 1апацааде= "Фауабсг1р®"> 
<!-- // 
Еипс®1оп уа1 (0571) 
{Уаг а1= 1*ор) .пиат1.уа1ае; 
уаг а2=1* ор] .пишо.уа1ае; 
уаг а3=1* о] .пиш3.уа1ще; 
уаг а4=1*ор).пим4.уа1ще; 
уаг а5=1* ор).памб.уа]ае; 
уаг аб=1* оЪ].питаб. ха1ще; 
уаг $ =(а1+а2+а3+а4+а5+а6) /6 
оь) .гез.уа]оае = $ 
} 
//--> 
</зсг1ре> 
</НЕАР> 
<ВООУ> 
Введите начисленную сумму гонорара за следующие месяцы 
<рге> 
<Еоги паме="Еоут1"> 
Январь: <1проф $уре="$ехе" $17е=8 паме="пит1"> 
Февраль: <1проф $уре="вехе" $1хе=8 паме="пиот2"> 
Март: <1праЕ вуре="6ехе" $12е=8 паще="пипт3"> 


Апрель: <1праЕ Еуре="фех®" 512е=8 патме="пим4"> 


Май: <1праЕ вуре="6ехе" $17е=8 паме="пат5"> 
Июнь: <1приЕ буре="+ехе" $1хе=8 паще="потб"> 
Средняя зарплата за полгода: <1праЕ буре="6ехе" $12е=18 


паще="гез"><рг> 


<1приЕ буре="Баекоп" уа]ае=Вычислить опС11ск="уа1 (ЁЕоги1)"> <1прое 
фуре="гезее" уа1ае="Обновить"> 


</Еотта> 
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</рге> 
</ворОУ> 
</НТМГ> 


В рассмотренных примерах параметр обработки события (опс11ск), задаю- 
щий действия, выполняемые при обработке события, был связан с элемен- 
том типа "кнопка" (Боееоп). Событие, вызывающее обработку элементов 
форм — это щелчок мышью по кнопке Вычислить. В операторе задания пе- 
ременной 


уаг а1= 1*оЪ) .па1 .уа]1ае 


умножение на 1 выполняется для того, чтобы значением а1 стало число, а 
не строка, т. к. в дальнейшем требуется осуществлять сложение чисел, а не 
строк, | 


Рассмотрим дополнительно некоторые другие события, применяемые к объ- 
екту "текстовое поле" (+ех+). 


Площадь квадрата 


Напишем сценарий, определяющий площадь квадрата по заданной стороне. 
Площадь должна вычисляться в тот момент, когда изменилось значение его 
стороны. | 


Зададим форму, в которой определены два текстовых поля: одно для длины 
стороны квадрата, другое для вычисленной площади. Кнопка Обновить 
очищает поля формы. Площадь квадрата вычисляется при возникновении 
события Свапде, которое происходит в тот момент, когда значение элемента 
формы с именем пом1 изменилось, и элемент потерял фокус. 


НТМТ-код представлен в листинге 1.8. 


] Листинг 1.8. Реакция на событие Съапде 
<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Обработка события Спапае — изменение значения элемента</ТТТЬЕ> 
<$сг1ре> 
Еипсе1оп згес(оь)) 
{ об} .ге5.хаТае=ор) .пии1.уУа1ае* ор).пиш1.уа1ае} 
</зск1рЕ> 
</НЕАО> 
<ВОПУ> 
<Р>Вычисление площади квадрата</Р> 
<РОВМ папме="ЁЕотт1 "> 


26 Часть [. Язык Чауа$спрЕ для начинающих 


Сторона: <1праЕ фуре="$бехе" $12е=7 паме="пат1" 
опСрапае="згес (Ёогт1) "><Вг> 
Площадь: <1приаб Еуре="6ехе" $12е=7 папе="гез"><Вг> 
<1приф Есуре="гезее" уа]ае=Обновить> В 
</ЕОВМ> 
</ВОРУ> 


</НТМЬ> 


Обработка события Роси$ 


Напишем сценарий, определяющий площадь квадрата по заданной стороне. 
Площадь должна вычисляться в тот момент, когда пользователь переходит к 
элементу формы с помошью клавиши <Таб> или щелчка мыши. 


При решении этой задачи вызов функции произойдет как реакция на собы- 
ТИе госиз, Параметр обработки события опгосцз. 


НТМГ-код представлен в листинге 1.9. 


[Листинг 1. 1 9. `Обработка. события Еосив - — - объект формы получает фокус 7. 1 
<НТМЬ> 
<НЕАО> 


<ТТТЬЕ>Обработка события Госиз — объект формы получает фокус</ТТТЬЕ> 
<$сг1рЕ> 
ЕопсЕ1оп згес() 
{ огт1.гез.уа10е=Ёоги1 .пит1.уа1ае* Еогт1.пи1 .уа]1е} 
</зсу1ре> 
</НЕАО> 
<ВОрУ> 
<Р>Вычисление площади квадрата</Р> 
<РГОБМ паще="Еотгт1"> 
Сторона: <1праё Еуре="$ехе" $12е=7 паще="пои1" 
уа]1пе=6 опГоса$="5гес () "><рг> 
Площадь: <1приб буре="®ехе" $12е=7 папе="гез"><рг> 
<1праЕ Еуре="гезее" уа1ае=Обновить> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


При щелчке мышью по текстовому полю с именем поп1, в поле с именем 
гез помещается значение 36. Можно задать другое значение стороны квад- 
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рата и в тот момент, когда элемент формы пит1 получит фокус, значение 
площади будет помещено в соответствующее поле. 


Обработка события В/иг 


Событие "потеря фокуса" (в1ог) происходит в тот момент, когда элемент 
формы теряет фокус. В следующем варианте решения задачи вычисления 
происходят в тот момент, когда поле формы, содержащее данные, потеряло 


фокус. 

Напишем сценарий, определяющий плошаль квадрата по заданной стороне. 
Площадь должна вычисляться в тот момент, когда элемент формы теряет 
фокус. 

НТМЕ-код представлен в листинге 1.10. 


| Листинг 1.10. Обработка события В1аг. — - потеря. ‘объектом ‘фокуса ^ 


<НТМЬ> 
<НЕАО> 
<ТТТТЕ>Обработка события В1ахг - потеря объектом фокуса</ТТТЬЕ> 
<$сг1р®> 
ЕапсЕ1оп эгес() 
{ Еог1.гез.ха]ае=ЁЕотт1 .пии1.уа]ае* #огт1.пии1 .ха1ае} 
</зсх1ре> 
</НЕАО> 
<ВОПУ> 
<Р>Вычисление площади квадрата</Р> 
<ГОВМ паме="Еотт1"> 
Сторона: <1праЕ туре="$ехе" $17е=7 паме="пии1" уа]1де=8 
опВ1атх="5гес () "><рг> 
Площадь: <1прабс Еуре="$ехе" $12е=7 пате="тез"><Вг> 
<1приЕ суре="гезее" уа]ае = Обновить> 
</ЕОВМ> 
</ВОБУ> 
</НТМГ> 


и 


В результате потери фокуса полем пии1 происходит вычисление значения 
площади и помещение вычисленного значения в Поле гез. Первоначально 
будет вычислен результат, равный 64. Можно ввести нужное значение и при 
переходе к любому другому элементу, в поле гез отобразится вычисленное 
значение. 
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Обработка события бейес! 


Событие $е1есь вызывается выбором части или всего текста в текстовом 
поле. Например, шелкнув дважды мышью по полю поп1, мы выделим поле, 
наступит событие 5$е1ес+, обработка которого приведет к вычислению тре- 
буемого значения. 


Напишем сценарий, определяющий площадь квадрата по заданной стороне. 
Площадь должна вычисляться в тот момент, когда выбирается часть или 
весь текст в текстовом поле. 


НТМГ-код представлен в листинге 1.11. 


| Листинг 1.11. Обработка события зелес®- — - выбор п поля ‚ввода 
элемента формы | | =. | 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Обработка события 5е1ес® — выбор поля 
ввода элемента формы</ТТТЬЕ> 
<5сг1рЕ> 
Еопс&1оп згес() 
{ Еотт1.гез.уа]1ле=Ёотт 1 .пии1.уа]ае* ЁЕогт1.пим]1 .уа1ае} 
</зсг1ре> 
</НЕАО> 
<ВООУ> 
<Р>Вычисление площади квадрата</Р> 
<ГОВМ папме=" ЁЕогт1"> 
Сторона: <1прие фуре="*ехЕ" $з12е=7 паме="пит1" уа]1ае=9 
опбе1ес{="5гес () "><рг> 
Площадь: <1прае фуре="$ехе" $12е=7 паме="гез"><рг> 
<1праф Ссуре="гезеф" уа]ае=Обновить> 
</ЕОВМ> 
</ВорУ> 
</НТМЬ> 


Перестановка двух изображений 
В документе заданы два изображения. Требуется написать сценарий, кото- 
рый осуществляет перестановку заданных изображений. 


Вид документа приведен на рис. 1.6. При нажатии на кнопку Обменять изо- 
бражения меняются местами. Функция сьр1с*() вызывается как реакция на 
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событие "щелчок по кнопке" Обменять. Изображения задаются в документе 
с помощью тегов. Значение параметра згс определяет имя файла, в котором 
хранится изображение. Переменная 1 служит для того, чтобы запомнить имя 
файла, который связан с первым изображением. Оператор присваивания 
Ч.рт1.згс=Ч.рю2.згс обеспечит загрузку второго изображения вместо пер- 
вого. И, наконец, со вторым тегом изображения будет связан тот файл, ко- 
торый первоначально относился к первому изображению. В результате опи- 
санных действий изображения в документе будут переставлены. НТМГ-код 
документа, осуществляющего обмен изображений, имеет вид, приведенный 
в листинге 1.12. 


| Е Мой компьютер. 


Рис. 1.6. Обмен двух изображений 


оо мимо торов плен тоееяле Фохое. ооо о ооо ор о оче соо ооо о тонов о ооо ооо оон о ооо ооо чочоовочоо Г] 


| Листинг 1. 12. ‘Обмен двух ‘изображений _ 


<НТМЬ> 
<НЕАП> 
<ТТТЬЕ>Обмен двух изображений</ТТТЬЕ> 
<$сг1ре 1апацаде="Зауа5сг1ре"> 
<!-- // 
Еапс®1оп срр1се () 
{ уаг а=аосяамер®е 
уаг 1=А.рт1.5гс 
Ч.рт1.згс=аА.ри2.5:гс 
ЯЧ.рм2. згс=1 
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//--> 
</зск1рЕ> 

</НЕАО> 

<ВОРУ расо1ог=ЕВЕВЕЕ> 
<НЗ>Обмен двух изображений</НЗ> 
<ТМС згс="п1.91Е" пате=рт1 м1А6п=100> 
<1Мс згс="т2.91Е" пате=рт? и1а&п=100> 
<РГОВМ паще=" Е отта1 "> 

<1праЕ суре="раЕеоп" уа1ае="Обменять" опС11ск="сВр1с* ()"> 

</ЕОВМ> 

</воруУ> 

</НТМГ> 


Итак, для любого события важно знать, когда оно наступает, и к каким объ- 
ектам применяется. В предыдущих примерах мы привели варианты обработ- 
ки событий, применяемых к текстовому полю (‹ех+). 


Вертикальное графическое меню 


Создадим документ, реализующий вертикальное графическое меню. При 
наведении курсора мыши над пунктом меню должна меняться цветовая па- 
литра, соответствующая выделенному пункту меню (рис. 1.7). 


Содержание | 


Текст 


ртов поедниьсеие ооо моф ое злелолялеорв я плеть чая оли офсчаи ыьллежко мля 


—ПЕУМоиконьютр — ый 


Рис. 1.7. Вертикальное графическое меню 
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Каждому пункту меню соответствует два изображения: 
С первое изображение, когда пункт меню не выбран; 


С второе — при выбранном пункте меню, цветовая палитра рисунка изме- 
нена. 


Графические. изображения, соответствующие ситуации, когда пункты меню 
не выбраны, хранятся в файлах с именами рс|Н1.21, рсп2.21, рсВ3З.21, рсН4.21, 
рсН5.2{. Соответствующие им графические изображения с измененной па- 
литрой хранятся в файлах с именами \рсП1.е, урсН2.21, \рсН3З.8И, 
\рсН4.21, \УрсП5. 

При перемещении курсора над пунктом меню возникает событие 
оппойзеоуег. В этом случае при решении задачи требуется изменить графи- 
ческое изображение, соответствующее выбранному пункту меню, что осуще- 
ствляется в результате выполнения конструкции 


оппойзеотехг="аоситепе .ри1.зкс='ирср1.91Е'" 


Если курсор мыши выходит за пределы области связи, то возникает событие 
оппоизеоце, В результате обработки которого пункт меню должен принять 
первоначальный вид. Это достигается оператором присваивания 


оппоц5еоцЕ="аоситепе .рм1.згс='рср1.а91Е'" 


НТМГ-код документа, реализующего графическое вертикальное меню, мо- 
жет иметь следующий вид, представленный в листинге 1.13, а. 


уеоооововое в ооооз оовоооо трос очвово соо воотод рее ооо е фовоное ООО ООО Во © ЧО ООО ро о ооо то вор ооо оровароро си цао воров и орон о ооо р 9 оборо ро рр обо вос ооо о ро ор вос ооороо ооо оо розовое о оо воо фо росоовоов С] 


СКО ме авмант 


_<НТМЫ> 
<НЕАО> 
<ТТТЬЕ>Вертикальное графическое меню</ТТТЬЕ> 
</НЕАО> 
<ВОРУ Баскагоцпа="Еоп1.)ра"> 
<12><ЕопЕ со1ог="#0000ЕЕ">Содержание< /Еоп*></р2> 
<А ПгеЕ="$сЬ1.Пещ" Сагае*="Ма1п" 
оппоп5еотет="Чоситепе .рм1.зхгс='ирср1.41Ё'" 
оппоцзеочф="аосищепте .ри1.зхс='рсЬ1.41Ё'" > 
<]ТМб згс="рср1.91Е" паме="рт1" а1Е="форматирование текста" 
рогаег="0" и1ар="103" везарЕ="35"></А><рг> 
<А ВгеЕ="&ср2.ПЕм" багаеф="Ма1пт" 
оппоцзеоуег="аосатеп® .ршо.згс='мрсНВ2.91Е!" 
оппоч$еоц&="аосатепе .рто.згс='рсЬ2.91Е'" > 
<ТМб згс="рср2.91ЁЕ" папе="ри2" а1{="создание списков" Богаег="0" 
и1Ар="103" Ве1абЕ="35"></А><рг> 
<А РПгеЕ="6сп3З.ВЕм" багаеё="Ма1п" 
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оппоц5еоуег="аоситепе .рм3.згс='ирсВ3З.а1Е'" 
оппоц5еоц&="аосимепе .рм3.згс='рсВЗ.а1Е!" > 
<]1Мс згс="рср3.91Ё" паме="рм3" а1%="построение таблиц" рогаег="0" 
и1Аер="103" пе1аве="35"></А><Ьг> 
<А ргеЕ="$ср4.Рещ" багдеф="Малт" 
оппоц5еотег="аоситепе .ри4.згс='и\рср4.91Е'" 
оппоч5еоп$="аАоситепе .рм4.згс="рср4.91Е'" > 
<1Мб згс="рср4.91Е" папе="ри4" а1{="использование графики" 
Богаег="0" и1лав="103" БелзавЕ="35"></А><рг> 
<А ргеЕ="Еср5.Бем" 
опмоц5еоуег="аосищепе .рмо.згс='ирсП5.91Е'" , 
опточ5еоц$="Ааоситеп® .рт5.згс='рсВ5.91Е'" > | 
<ТМб згс="рср5.91Е" паще="рм5" а1(="создание фреймовой структуры" 
Богаег="0" изар="103" ВезарЕ="35"></А> <Ьг> 
</ВОПУ> 
</НТМЬ> 


Событие оптоазеоуег возникает и при перемещении курсора мыши над 
изображением. Событие оптоизеоч* наступает при выходе курсора за преде- 
лы области изображения. Поэтому обработку события можно помешать не в 
тег <А>, как было сделано в предыдущем примере, а в тег <тмб>, как это 
сделано в листинге 1.13, 6. 


<НТМЬ> 
<НЕАО> 
<ТТТТЕ>Вертикальное графическое меню</ТТТЬЕ> 
</НЕАО> | 
<ВОРУ Баскагоцпа="Еоп1.7рд"> 
<Н2><РОМТ со1ог="#0000ЕЕ">Содержание</ЕОМТ></Н2> 
<А ВгеЕ="+сВ1.5Ем" багдее="Ма1т"> 
<19 згс="рср1.491Е" паще="ри1" а1%="форматирование текста" 
Богаег="0" мзаЕй="103" рВезавЕ="35" 
оппоцзеоу\ег="аосчтеп* .рм1.$згс='мрср1.91Е'" 
оппоц$еоц*="аоситепе .ри1.згс='рсВ1.91Е'"></А><Ьг> 
<А пгеёЁ="$ср2.Вещ" багдее="Ма1п"> | 
<ша згс="рср2.91Ё" папе="ри2" а1%&="создание списков" Богаег="0" 
и1АЕВ="103" резарЕ="35" 
оппочзеоуег="Аоситеп* .рш2.згс='урсЬ2.91Е'" 
оппоц$еоц*="Чоситеп® .рм2.згс='рсН2.491Е'"></А><Ьг> 


` 


Глава 1. Основные положения 33 


<А ПгеЕ="ЕсрЗ.Рём" багдеф="Мазт"> 
<9 згс="рср3З.91Е" паще="ри3" а1&="построение таблиц" рогаег="0" 
и1Абр="103" Веларе="35" 
оппоцз$еоует="Аоситепе .рм3.згс='мрсЬ3З.91Е'" 
оппоц5еоц*="Аосптеп* .рм3.зхгс='рсВ3.а1Е'"></А><Ьг> 
<А пгеЕ="$св4.РЕщ" Еагдеф="Ма1пт" > 
<1МС згс="рср4.41ЁЕ" паме="ри4" а1="использование графики" 
Богаег="0" \м1Ар="103" ПезапЕ="35" 
оппоч5еоуетг="Аоситеп® .рт4. зхгс='урср4.41Е'" 
оппочзеоц*="аоситеп® .ри4.згс='рсВ4.91Е'"></А><рг> 
<А РгеЕ="Еср5.Рем" фагдее="Мазт"> 
< згс="рср5.91Е" папе="ри5" а1+="создание фреймовой структуры" 
Богаег="0" изаер="103" резавЕ="35" 
оппоц5еоуег="Чосимеп® .рто. згс='мрсВ5.91Е'" 
оппоцзеоп*="Аоситеп* .рм5.згс='рсЬ5.91ЕЁ'"></А> <Ьг> 
</ВОПУ> 
</НТМЬ> 


Вид документа в обоих случаях будет одинаков. 


Расписание занятий 


Напишем сценарий, в результате работы которого при попадании курсора 
мыши на элемент списка, в текстовом поле появляется соответствующее 
сообщение. 


Расписание занятий 


Занятия в компьютерном классе 


= 


» Г нара Математический анализ 
2 пара Высшая алгебра 
3 пара Программирование 
4 пара История 
5 нара Дискретный анализ 


Рис. 1.8. Расписание занятий 
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Пусть список представляет собой расписание занятий в определенный день, 
а текст сообщения содержит комментарий к каждому занятию. Вид доку- 
мента приведен на рис. 1.8. 


Расписание занятий задается списком. В теге <т1>, определяющем элемент 
списка, предусмотрена реакция на два события, связанных с попаданием кур- 
сора мыши на элемент списка и выход курсора за пределы элемента списка. 
При попадании в текстовое поле помещается значение строки. Размещаемая в 
текстовом поле строка определяется параметром функции. НТМЕ-код доку- 
мента имеет вид, представленный в листинге 1.14. 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Расписание занятий </ТТТЬЕ> 
<$сг1ре> 
<!-- 
уаг $1="Контрольная работа" 
уаг $2='Изменилась аудитория 2246. 2 этаж' 
уаг $3='Занятия в компьютерном классе" 
уаг 54='Подготовка реферата' 
уаг $5='Занятия переносятся на следующую неделю' 
ЕапсЕ1оп $ср ($) 
{Чоситеп®. Еотта1 .п1.уа1ае=$} 
ЕорсЕ1оп ае1еф() 
{аосомепе. Еогта1 .01.уа1ае='' } 
//--> 
</зсг1р®> 
</НЕАБ> 
<ВОБУ расо1ох="#ЕЕОСОС"> 
<Сепфег> 
<Н4>Расписание занятий</Н4> 
<ТАВГЕ Богаег=О се1]15$рас1па=5 се11ра991па=5> 
<ТВ уа119п=фор> | 
<ТР а11ап=сепеег> 
<ЕОВМ паше ="ЁЕотгт1"> 
<Есехбагеа папе="т1" со13=35 гом5=4></кехбагеа></ТрО> 
</ЕРОВМ> 
</ТВ> 
<ТВ уа119п=п1аа1е><Тр> 
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<ОТ><ЕОМТ $12е=4> 
<ГТ оппоцзеоуег="зсВ ($1)" оппоцзеоце="ае1е* ()"> 
<Ь><1>1 пара </1></Ь> Математический анализ 
<ГТ оптоцзеоуег="зсВ (52)" оппоцзеоц$="ае1е* ()"> 
<р><1>2 пара </1></Ъ>Высшая алгебра 
<ЬТ опиоцзеоуег="$сВ ($3)" оптоицзеоц$="ае1е* ()"> 
<5><1>3 пара </1></Ъ> Программирование 
<ЬТ оппоицзеоуег="$сй ($4)" оппоцзеоле="ае1е  ()"> 
<Ь><1>4 пара </1></Б> История 
<ЬТ оппопзеотег="$сВ ($5)" оптоицзеой*="ае1е* ()"> 
<5><1>5 пара </1></Б> Дискретный анализ 
</ЕОМТ> 
</01> 
</ТО></ТВ> 
</ТАВЬЕ> 
</ворБУу> 
</НТМГ> 


В табл. 1.5 представлены события и элементы документов НТМГ, в которых эти 
события могут происходить. 


Таблица 1.5. События и объекты 


Событие Объекты Когда происходит событие 
АрогЕ 1паде Отказ от загрузки изображения 
В1иг и1паомз, элементы формы — Потеря объектом фокуса 
СВапде фехЕ, сехфагеа, зе1ес+ Изменение значения элемента 
С11ск БиЕЕоп, гаЯ1о, сВескЬох, — Щелчок на элементе или связи 
5251, гезеф, 110К 
ргаачргор м1 п40и$ Перетаскивается мышью объект в 
окно браузера 
Еггог 1паде, и1п9о\мз Ошибка при загрузке документа 
или изображения 
Госи$ и1паомз, элементы формы — Окно или элемент формы получает 
фокус 
Кеуромп Чоситеп%, 1щаде, 11пк, Нажатие клавиши клавиатуры 
Техсагеа 
КеуРге$5 Чосимеп&, 1щаде, 11пкК, Удержание нажатой клавиши кла- 


сехтагеа виатуры 
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Событие 


КеуП0р 


Тоаа 
Моизеромип 


МоцзеО4цЕ 


Моп5е0уег 
Моч5е0Ор 


Моуе 


Везее 


Вез17е 


Зе1есе 


Зара 


0п]оаа 


Объекты 


Чосищеп*, 1щаде, 11пк, 
Техсагеа 


Тело документа 
аосомеп®, БаЕбоп, 11пК 


агеа, 11пК 


11р0К 
аосоиеп®, Ба боп, 11п1К 


и1паом$ 


Еогм 


\1паом$ 


фехе, сехфагеа 


Рог 


Тело документа 
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Таблица 1.5 (окончание) 


Когда происходит событие 


Отпускаются клавиши клавиатуры 


Загружается документ в браузер 
Нажатие кнопки мыши 


Перемещение курсора из области 
изображения или связи 


Перемещение курсора над связью 
Отпускается кнопка мыши 


Пользователь или сценарий пере- 
° мещает окно 


Нажатие кнопки ЯВезе! формы 


Пользователь или сценарий изме- 
няет размеры окна 


Выбирается поле ввода элемента 
формы 
Нажатие кнопки Зибтй формы 


Пользователь закрывает документ 


Во многих рассмотренных примерах значением параметра обработки собы- 
тия был вызов функции, осуществляющей требуемые действия. 


Объект МаЁ 1 и его методы 


В языке У]ауазспире определены некоторые стандартные объекты и функции, 
пользоваться которыми можно без предварительного описания. Одним из 
стандартных объектов является объект Ман. В свойствах упомянутого объек- 
та хранятся основные математические константы, а его методы можно ис- 
пользовать для вызова основных математических функций. В табл. 1.6 при- 


ведены некоторые методы объекта ман. 


Метод объекта 


аб$ 


$11, со$, бап 


Таблица 1.6. Методы обьекта МаЕр 


Описание метода 


Абсолютное значение 


Тригонометрические функции . 
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Таблица 1.6 (окончание) 


Метод объекта Описание метода 

109 Натуральный логарифм 

ехр Экспонента 

ое Наименьшее значение двух аргументов 
тах Наибольшее значение двух аргументов 
ром Показательная функция 

5аге Квадратный корень 


Вычисление площади и периметра треугольника ' 


Напишем сценарий вычисления площади и периметра треугольника, задан- 
ного длинами сторон. | 


Для того чтобы вычислить площадь треугольника по длинам сторон, можно 
воспользоваться формулой Герона, в соответствии с которой требуется при- 
_менить функцию извлечения квадратного корня. Поэтому применим метод 
загЕ объекта мазь: Ман. заге. | 


НТМГ-код представлен в листинге 1.15. 


зоо чо ооо оо ооо о ооо о ооо осо сос осо вос оо ооо чо о пос о орел ооо соо соо ороооо ооо оо ото нова оо во орооцон ооо оао окос ово © 9 ооо цочосроо ос ооо вов ово ов осоо ово овосо сос во осо ооо свое о ` 


| Листинг 1.15. Вычисление площади и периметра треугольника с ; помощью 
объекта Маёв _ . 


<НТМЬ> 
<НЕАО> 

<ТТТЬЕ>Объект Ма В</ТТТЬЕ> 

<5сг1ре 1ападцаде="Дауа$ сг1ре"> 

<!-- // 

ЕопсЕ1оп саге (057) 

{уаг а=ор].$Е1.ха1ае 
уаг Ю=ор).5$%2.уа1ае 
уаг с=ор).5Е3.уа1ае` 
уа’ 5; р=а*1+6*1+с*1; 
аосищеп® .мг16е1п ("Периметр треугольника равен ",р,"<Ъг>"); 
р=р/2; 
$=Ма®й .заг® (р* (р-а) * (р-Ъ) * (р-с)); 


осимепе.мг1ее ("Площадь треугольника равна ",5); 
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//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
<Р>Пример сценария с математической функцией</Р> 
<Р>Вычисление площади и периметра треугольника</Р> 
<РГОВМ папе="Еогт1"> 
Сторона 1: <1при®е суре="Еехе" $1те=7 папе="561"><Вг> 
Сторона 2: <1праЕ куре="$6ех®" $312е=7 паще="5$2"><Вг> 
Сторона 3: <1прае куре="бехе" з17е=7 пате="$63"><Вг> 
<1прие Еуре="раебоп" уа1ае=Вычислить 
опС11ск="саге (Ёогт1) "><рг> 
<1праЕ {уре="гезее" уа1ае=Отменить 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Обратите внимание на кнопку Отменить, при нажатии на которую очища- 
ются все поля формы. 


Вычисление гиперболических функций 


Напишите сценарий вычисления гиперболических функций 


пет оз 


В заголовке документа определим три функции. Каждой из гиперболических 
функций соответствует кнопка, при нажатии на которую вычисляется зна- 
чение функции в заданной точке. 


НТМГ-код представлен в листинге 1.16. 


отооолососо соо ото волос ооо оо посонаочоал ооо ово ооо соощаозосао О ОИ ОА РИ САО УВ МЗ ООО мо - 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Определение и использование нескольких функций</ТТТЬЕ> 
<5сг1ре 1апдааде="Зауа$ сг1ре"> 
<!-- // 
Гопсе1оп $1 (х) 


{уаг у=(МафВ.ехр(х) - Масп.ехр(-х))/2; гебоагп у} 
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Еапсе1оп ср (х}) 
{Уаг у= (Ма й.ехр(х) + МаеВ.ехр(-х))/2; гебоагп у} 
Еопсе1оп ЕР (х) 
{Уаг у=зВ(х)/сн(х); гефако у} 
//--> 
</зсг1р®> 
</НЕАО> 
<ВОрУ> 
Определение и использование гиперболических функций 
<НВ> 
<РВЕ> 
<ГОВМ папе="Еогт1"> 
Введите значение х: <1приЕ +уре="+ехе" $517е=5 паме="ага"><рг> 
гиперболический синус: <1приЕ суре="вехе" з:12е=20 паме="ге$1"> 
<1прае суре="Баевоп" уа]ае= " синус "“ 
опС11ск="Еогт1 .гез1.уа1ае=зй (Еоги1.ага.ха1]ае) "><ру> 
гиперболический косинус: <1праЕ фуре="$ехе" $12е=20 паще="гез2"> 
<1приЕ $уре="БаЕфоп" уа1ае= "косинус" 
опС11ск="ЁЕотта1 .гез2.уа1ае=сП (Ёогт1.ага.уа1оае) "><ртг> 
гиперболический тангенс: <1праЕ буре="6ехе" 312е=20 папе="гез3"> 
<1приЕ фуре="раекоп" уа1ае= "тангенс" 
опС11сКк="ЁЕогта1 .гез3.уа1ае=еЕрВ (Ёоги1.ага.уа]ае) "> 
</ЕОВМ> 
</РВЕ> 
</ВОБУ> 
</НТМИ> 


При работе с объектами можно использовать оператор изв, который имеет 
следующий синтаксис: 


и1еВ () {5} 


где с — объект; $ — последовательность операторов. Оператор и1ен задает 
объект, используемый по умолчанию в последовательности операторов $5. 
Все свойства и методы в $ являются свойствами и методами объекта +. 
Применение этого оператора сокращает текст программы, т. к. избавляет от 
необходимости указывать иерархию объектов. Этот оператор часто исполь- 
зуется для объекта Ма+в, тогда обращение к его свойствам и методам можно 
производить без самого объекта ман, например, как в следующем варианте 
описания функции зэ\ (х): 


Еорселоп $й(х) 


{ уаг у 
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и1ЕВ (Мафр){у= (ехр(х) — ехр(-х))/2} 


гебагп у} 


Упражнения 


1. Вводится информация о доходах сотрудника за первый квартал текущего 
года. Требуется определить: 


® общую сумму дохода за квартал; 
® сумму подоходного налога (13%); | 
е сумму, подлежащую выдаче на руки. 


2. На плоскости заданы координаты трех точек. Напишите сценарий, кото- 
рый вычисляет площадь треугольника. 


3. Напишите сценарий, который для точки, заданной координатами на 
плоскости, определяет расстояние до начала координат. 


4. Напишите сценарий, который обменивает местами значения двух вве- 
денных переменных. 


5. Напишите сценарий, который определяет объем шара и площадь боковой 
поверхности, если известен радиус. 


6. Задан радиус окружности. Определите длину окружности и плошадь со- 
ответствующего круга. 


7. Задана окружность (координатами центра и радиусом) и точка вне окруж- 
ности. Определите длину касательной из заданной точки к окружности. 


8. Определите расстояние между двумя точками на плоскости, заданными 
своими координатами. 


Глава 2 


+... м: 


Организация ветвлений 
в программах 


Г ---$ 
о 


С 


Условный оператор 


При составлении программы часто необходимо выполнение различных дей- 
_ ствий в зависимости от результатов проверки некоторых условий. Для орга- 
низации ветвлений можно воспользоваться условным оператором, который 
имеет вид: | 


1Е В {$1} 
е15е {52} 


где в — выражение логического типа; $1 и $2 — операторы. Выполнение 
условного оператора осуществляется следующим образом. Вычисляется зна- 
чение выражения в. Если оно истинно, то выполняются операторы 31, если 
ложно — операторы $2. Если последовательность операторов $1 или $2 со- 
стоит лишь из одного оператора, то фигурные скобки можно опустить. Воз- 
можна сокращенная форма условного оператора: 


1Е В {5} 


где в — выражение логического типа, $ — последовательность операторов. 
Выполнение краткого условного оператора осуществляется так: вычисляется 
значение выражения в, если оно истинно, то выполняются операторы 5. 


Максимальное значение 


Для трех заданных значений а, 6, с необходимо написать сценарий, опреде- 
ляющий максимальное значение. 


На рис. 2.1 приведен вид документа после введения ‘данных и выполнения 
сценария, определяющего максимальное значение из введенных. 


Поступим следующим образом. Сначала максимальным значением м будем 
считать значение а, далее значение ь сравним с максимальным. Если ока- 
жется, что ь больше п, то максимальным становится ь. И, наконец, значе- 
ние с сравнивается с максимальным значением из предыдущих значений а 
и’ъ. Если с больше п, то максимальным становится с. Оператор присваива- 
НИЯ 0Ъ).гез.уа1ае=м обеспечивает запись вычисленного максимального 
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значения в соответствующее поле формы. Функция Мопьегх(з) преобразует 
объект з, заданный в качестве параметра, в число. Полностью сценарий мо- 
жет быть записан так, как представлено в листинге 2.1. 


Вычисление максимального значения 


Число 1: [1 14676 


„лв утиль оли лоионеитьлттурь чьим учньв оооильл вол 


Число 2: Г 79833 


ити перил дллииионлекурик 


Число 3: [1793 


моарлниаинтньх у лллллещатьк 


я] 
ЧН 


ры Е ы - т Ам Мой кс Компьютер о ры 2: 


Рис. 2.1. Максимальное значение последовательности из трех элементов 


опор во ро осо о ооо оо ров ооо оо ооо ос ооо ово ро ро ооо рр ао орорпос повторов орорософоооооооварчосоо Л 
=. ини т . 


Листинг 2. 4. Вычисление 1 максимального. значения. из трех заданных _ 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Вычисление максимального значения</ТТТЬЕ> 
<$сг1ре 1апаладе="Зауа$сг1ре"> 
<!-- // 
Еаопс®1оп махуа1 (оЪ] ) 


{ уаг а = №опфег (оЪ) .пим1.уа]14е); 
уаг Р = Мипоег (057 .пим2.уа1ае); 
уаг с = Мапьег (о5} .пам3З.уа]4ае); 
уаг п=а 
1Е (© >п т=Ь 
1Е (с > м) ЕС 
оЬ].гез.уа1ае=м 

} 

//--> 
</зсг1рё> 
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</НЕАО> 
‚ <ВОБУ> 
<Н4>Вычисление максимального значения</Н4> 
<ГОВМ паме="Ёотгт1"> 
Число 1: <1праое вуре="%ехе" $17е=8 пате="пит1"><Вт> 
Число 2: <1прие буре="%ехе" $512е=8 паще="пита"><Вг> 
Число 3: <1прае буре="*ехе" 5з17е=8 паме="пит3"><ру> 
Максимальное значение равно 
<1прае суре="БаЕсбоп" уа1ае=Определить опС11ск="тахуа1 (Еотт1) "> 
<1прае суре="+ехе" 512е=8 паме="гез"><рг> 
<1проЕ буре="гезее"> 
</ЕОВМ> 
</ворУу> 
</НТМЬ> 


Решим рассмотренную задачу другим способом. Вспомним, что стандарт- 
ный объект Ма+ь имеет метод пах, Который определяет наибольшее значение 
двух аргументов. Опишем функцию пахуа11, которая определяет макси- 
мальное значение из трех заданных значений и использует объект Маен. 
(ор3 ) 
{ таг а = №лрет (о) .пам1.уа1ае); 
уаг Ь = М№ифех (057 .пам2.уа1ае); 


уаг с = М№ипЪег (ор} .пим3.уа1ое); 


РЕопс1оп пахуа11 


оь) .ге$.\уа]ае=Ма%В .тах (Ма*П.тах(а,Ъ),с) 


} 


Если бы требовалось определить максимальное из четырех заданных значе- 
НИЙ а, Ь, с, 4, ТО можно было бы воспользоваться формулой 


Маеп .тмах (Ма ПР .пах(а,Б), МафеИ.мах(с,а)) 


Максимальное и минимальное значения 
Заданы три значения а, 6, с. Требуется определить максимальное и мини- 
мальное значения из заданных величин. 


Переменную 1 будем использовать для хранения минимального значения, пе- 
ременную + — максимального. В результате выполнения условного оператора 


1ЁЕ (а > Ъ) {1=Ъ; + =а} е]1з5е {+ =Б; 1 =а} 
переменная 1 получит минимальное значение из двух рассмотренных а ИЬ, 


переменная + примет максимальное значение из значений а И Ь. Затем зна- 
чение с сравнивается с максимальным значением. Если оказывается, что с 


44 


Часть [. Язык ЛауаспрЕ для начинающих 


больше +, то максимальным становится с. Если же значение с меньше ми- 
нимального 1, то минимальным становится с. Приведем документ со сцена- 
рием решения задачи (листинг 2.2). 


офф оо цооо ов осо ооо ооо ооо сос ооо ооо ооо вов осососовососо АВАЛЬ ОВСА КИА ИОВ ВИЙ 


<НТМЬ> 


<НЕАО> 


ооо ооо осо ооо ооо во о ооо ово о ооо осо соо оо ооо оо с осо сос о вос ос ооо ос осо вар ова сос оо вов оороссоввовооосоосао 


<ТТТЬЕ>Вычисление максимального и минимального значений</ТТТЬЕ> 


<5сг1ре 1ападааде="Фауа$сх1ре"> 
<!-- // 


Еопс®1оп пахи1пуа1 (о0Ъ] ) 


{ уаг а = №опег (о5] .пит1.уа1ое); 


} 


//--> 


уаг Ь = Мапфек (05) .пам2.уа1ае); 
уаг с = №иет (ор) .пам3.уа]1ае); 
уаг 1 _ 

уаг + 


1Е (а >) {1=Ь; с =а} 
е]1зе {+ = Ь; 1 =а} 

1Е (>) $ = 

1Е (с <1) 1=с 

ор) .гезмах.уа1щае=® 


ор) .гези1п.уа]ае=1 


</зсг1ре> 


</НЕАО> 
<ВОрУ> 


<Н4>Вычисление максимального и минимального значений</Н4> 
<ГОВКМ папе="Ёоги1"> 


Число 1: <1приё Еуре="Еехе" 312е=8 папе="пои1"><Бг> 


Число 2: <1праЕ буре="Еехе" 51хе=8 папе="пот2"><рЬг> 


Число 3: <1приё фуре="$ехе" $17е=8 паме="пит3"><рг> 


<1прие суре="раеоп" уа1ае=Вычислить 


<1праЕ фуре="вехе" $12е=8 папе="гезмах">максимальное значение<Вг> 


<1прое суре="$6ехе" $15хе=8 папив="гези1п">минимальное значение<рг> 


опС11ск="тахиупуа1 (Еот1) "><Нг> 


<1приЕ фуре="гезе*"> 


$ 
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</ЕОВМ> 
`’ </ВОБУ> 
</НТМЬ> 


Стандартный объект МаЕн содержит метод п1п, определяющий минимальное 
значение из двух заданных величин. Используя стандартный объект Маев и 
его методы, опишем функцию пахп!1пу1, определяющую максимальное и 
минимальное из трех заданных значений следующим образом. 
ЕопсЕ1оп пахи1пуа11 (оЪ)) 
{ уаг а = Маопьег (о .пош1.уУа1ае); 
уаг Ъ = Мапрехг (ор) .пим2.уа]1ае)}; 


уаг с Мапрег (ою) .пам3.уа1ае); 
оь) .гезмах.\уа1ае=Ма%П.мах (Ма*П.мах(а,Ъ),с) 


ор) .гези1п.уа1ае=Ма®П.м1п (Ма В .плп(а,Ъ),с) 


Сортировка чисел 

Заданы четыре значения а, 6, с, 4. Требуется написать сценарий, который 
сортирует эти числа в порядке возрастания. 

Вводимые данные представлены так, как указано на рис. 2.2. 


сы Пр р 
И В р. 


о Ор рек кре до хер лооскр Доби есднтесье йе: 


ой компютера 


Рис. 2.2. Пример сортировки последовательности из четырех элементов 


Сначала сравниваются значения двух переменных а и Ь. Если окажется, что 
а больше ь, то переменные обмениваются значениями. Далее сравнивается 
значение а со значением с. Если значение а больше с, то опять эти пере- 
менные обмениваются значениями. И, наконец, сравниваются а и а, при 
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необходимости обмениваюся значениями. Таким образом, после описанных 
действий значение переменной а — минимальное из четырех рассмотрен- 
ных. Далее значение ь сравнивается последовательно со значением с и ч, 
если необходимо, то осуществляется обмен значений. Значение ь станет 
минимальным из рассмотренных ъ, с, а. Последний шаг — сравнение зна- 
чений с и а. Полностью программа решения задачи может быть записана 
так, как представлено в листинге 2.3. 


‚ | Листинг 2.3. Сортировка последовательности из четырех чисел ри 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Сортировка последовательности из четырех чисел</ТТТЬЕ> 
<5сг1ре 1апдааде="Фауа5сг1ре"> 
<!-- // 
Еопсе1оп зогЕуа1 (о) } 

{ таг а = М№лиет (о) .пош1.уа]1ще); 
уаг Ь = М№ипрех (057 .пам2.уа1ае); 
уаг с = МипЬех (057 .пам3.уа1ае); 

( 


уаг А = Мшфет (об) .пим4.уа]11ае); 
1Е (а >) { г=а; а =Ъ; Б= г} 
1ЁЕ (а> с) { г =ара=с; с= г} 
1Е (а>а) { г=а; а = 4; а= г} 
1Е (>С) {( г-=; р = с; с= г} 
1Е (>а) { г=ь; Б=а; а= кт} 
ТЕ (с>а) {хг=сс=а; а=к} 


ор) .пим1.уа]1ае=а 
ор) .пима.хуа1щае=Ь 
ор) .пиш3.ха]щае=с 
ор] .пим4.уа1ще=а 
} 
//--> 
</зсг1ре> 
</НЕАШ> 
<ВОрУ> | 
<Н4>Сортировка последовательности из четырех чисел</Н4> 
<ЕОЁМ паме="ЁЕотгт1 "> 


® 


Число 1: <1приЕ вуре="6ехе" з17е=10 папе="пит1"><ру> 
Число 2: <1приаф суре="%ехе" $517хе=10 паще="пим2"><Вг> 


Число 3: <1приё буре="кехе" 512е=10 паще="пам3"><Вт> 
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Число 4: <1прие Еуре="%ехе" 512е=10 папе="пит4"><Пг> 
<1приЕ суре="раееоп" уа1ае=Сортировать 
опС11скК="зог%уа1 (ЁЕоги1) "><рг> 
<1праЕ +уре="гезее" уа]ае=Очистить> 
</ЕОВМ> 
</ВОБУ> 
</НТМГ> 


После нажатия кнопки Сортировать будет выполнен сценарий, осуществляю- 
щий сортировку чисел по возрастанию, и документ примет вид как на рис. 2.3. 


2.2 
2 И: 
. А 


" 


Рис. 2.3. Отсортированная последовательность 


Вычисление размера стипендии 


Требуется написать сценарий определения размера стипендии в зависимо- 
сти от оценок, полученных во время сессии. Стипендия начисляется по сле- 
дующим правилам: 


С] студенту, сдавшему экзамены на все оценки "отлично", начисляется сти- 
пендия в 100 у. е.; 


О если студент получил четверки и пятерки (наличие хотя бы одной пятер- 
ки обязательно), то ему полагается стипендия в размере 75 у. е.; 


С если все оценки четверки, то размер стипендии 50 у. е.; 
С в остальных случаях стипендия не назначается. 


При решении задачи поступим следующим образом. Вычислим максималь- 
ную и минимальную из оценок, полученных на экзамене. Далее будем ис- 
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следовать эти значения. Если окажется, что минимальная оценка равна 5, то 
это означает, что студент все экзамены сдал на оценку "отлично". Если мак- 
симальная из оценок равна 5, а минимальная 4, то студенту полагается сти- 
пендия в размере 75 у. е. Если и минимальная из оценок, и максимальная 
равны 4, то все экзамены сданы на 4, поэтому размер назначаемой стипен- 
дии — 50у. е. В остальных случаях стипендия не назначается. Документ с 
введенными оценками и результатом их анализа представлен на рис. 2.4. 


Вычисление размера стипендии по результатам сессии 


Введите полученные оценки в любом порядке 


Оценка 1: [4 | 
Оценка 2: Б 

Оценка 3: [4 

Оценка д: р 


ме аи Со те рум ее Зее о лиза о р А иль ль ии есть 


Доя определения размера стипендии нажмите на кнопку: 
``Определить. ^ 


[3 назначена стипендия в размере 75 ц.е. 


па лккаА Алле кодах оли АА К ОА АЯ дж скакал од а ит ИЛА ПАЗИи и СА ААА © Ааа АА ада саАи к болели чьа дак Ак ак ААА ал Зала лил дж ла <. 


 Номанить - - 


= 


короли еек ги иоиунии наити томеллертеот лния темени неее" 


2] Готово. - И и р О вг- Мойк компьютер | 4 


Рис. 2.4. Вычисление размера стипендии 


Приведем документ и текст сценария решения задачи (листинг 2.4). 


дооооочрооочоово ос осот ооо чо ооо вооон ил ово рвов ооо ооо оо ооо оо во ооо ооо ооо оо ооо вооон ово ооо осо ооо ос ооо ооо ооо ооо оч ооо ооо ооо ооо ори чо ооо вооон ооо оао оо ооо ооо соо оо вор ооочосоьоосе ` 


: Листинг 2.4. Вычисление размера стипендии _^ 


<НТМЬ> 
<НЕАО> 

<ТТТЬЕ>Вычисление размера стипендии</ТТТЬЕ> 

<зсг1ре 1апаладе="Зауа$сг1р®"> ` 

<!-- // 

Еопс®10оп 56 (95) ) 
{ таг а = №итрег 553. пим1.уа1ае); 

= Матбег (оБ ) вып .уа1че); 


( 

хахг ( 
№атрет (05) .пим3.уа1ае); 

( 


ь 
уаг с 
а 


уаг №тфехт (об) .пог4 .уа1ае); 
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уаг 1; уаг & 
уаг м = 0 
1 (а > Ъ) {1=Ь; Е =а} 
е15е {+ = Ь; 1 =а} 
1Е (>) Е =; 1Е (с>®&) Е =с; 1Е (а>®) $ =а; 
1Е (6 < 1) 1=5; 1ЁЕ (с < 1) 1=с; 1Е (а<1) 1=а; 


1Е (1 ==5) {п=100} 
е15е 
1Е ((Е ==5) && (1 ==4)) {п=75} 
е1 зе 
1Е (($ ==4) && (1 ==4)) {(п=50} 
1Е (п==0О) 


оЬ7].$5Е1р.уа1ае="К сожалению, Вам стипендия не назначена" 
е1зе 
оЪ].зЕ1р.уа1ае="Вам назначена стипендия в размере "++" у.е." 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
<Н4>Вычисление размера стипендии по результатам сессии</Н4> 
<Н4>Введите полученные оценки в любом порядке</Н4> 
<РГОВМ папе="Еотгт1"> 
Оценка 1: <1прае $уре="фехе" $12е=8 паме="пои1"><Бт> 
Оценка 2: <1праЕ буре="$ехе" $1хе=8 паме="пом2"><Бт> 
Оценка 3: <1прае суре="%ехе" $12е=8 паще="пот3"><рт> 
Оценка 4: <1прае ф$уре="%ехе" $12е=8 паме="пот4"><Пу> 
Для определения размера стипендии нажмите на кнопку: <рЬтг> 
<1прае буре="раеф$оп" уа1ае=Определить опС11ск="5$$ (Еогт1) "><рг> 
<1приЕ +уре="фехе" 312е=50 паще="5Е1р"><рг> 
<4прие суре="гезее" уа]ае=Отменить> 
</ЕОВМ> 
</вВору> 
</НТМГ> 


Как и в предыдущих случаях, функцию з+ можно описать по-другому, исполь- 
зуя свойства стандартного объекта ма+н. Приведем описание функции 3+1. 


Еопсе1оп $81 (057 ) 


{ уаг а = №жег (оБ] .паи].Уа14ае); 
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уаг Ь = №опьег (ор) .пам2.уа1ае); 
уаг с = Мапег (ор) .пом3.уа1ое); 
уаг Я = Мапег (ор) .пим4.уа1ае); 
уаг 1 = Ма еИ.пах (Маер.тмах (а, 5) ,Маеп.пах(с,а)) 
уаг Е = МаЕВ.тплл (МабВ.ш1п(а,Б), Маев.пат(с,а)) 
уаг м = 0 
1Е (1 ==5) {п=100} 
е15е 
ТЕ ((& ==5)&& (1 ==4)) {п=75} 
е1 зе 
1Е ((Е ==4) 58 (1 ==4)) {1=50} 


оЬ].5Е1р.уа]1ще=м 


Расположение точки 
относительно треугольника 
Точка на плоскости задается своими координатами. Треугольник на плоско- 


сти — координатами вершин. Необходимо написать сценарий, определяю- 
щий, лежит ли заданная точка внутри треугольника. 


Прежде чем писать программу, сделаем несколько замечаний. Площадь тре- 
угольника с вершинами А, В, С обозначим 5двс. При решении задачи будем 
использовать тот факт, что, если точка Р лежит внутри треугольника с вер- 
шинами А, В, С или на его стороне, то выполняется равенство (рис. 2.5): 


ЗАВС = ЭАРВ + ЭВРС + ЭАРС. 


Если же точка Р лежит вне треугольника (рис. 2.6), то последнее равенство 
будет нарушено. | 


С А С 


Рис. 2.5. Точка Р внутри треугольника Рис. 2.6. Точка Р вне треугольника 


Опишем функцию саге, Которая вычисляет площадь треугольника, если за- 
даны координаты его вершин. 
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Еопсе1оп саге (ах, ау, Юх,Бу, сх, су) 
{ уаг 3 = Мафр.аЪ$ (ах* (Бу-су) +рх* (су-ау)+сх* (ау-ру)); гебагп 3} 


Работая с величинами вещественного типа, необходимо помнить, что веще- 
ственные числа представляются в памяти компьютера приближенно, поЭтТо- 
му для них следует избегать проверки равенства Р = О, а надо использовать 
выражение |Р — О < ер5, где ерз некоторое заранее заданное маленькое чис- 
Ло. Поэтому В программе после вычисления площадей 

уаг 3= саге (ах, ау, Бх,Бу, сх, су) 

уаг $1=саге (ах, ау, Бх,Бу,х, у) 

\уаг з2=саге (ах, ау, х, у, сх, су) 


уаг $3=саге (х, у,Бх,Бу, сх, су) 


будет проверяться условие 
Маев.аь$ ($-$1-$2-$3)< 0.001 


Т. К. ВЕеличинызъз, $1, $2, з3 вещественного типа. Приведем документ со сце- 
нарием, решающим задачу (листинг 2.5). 


"Листинг 2.5. Расположение 1 точки. ‘относительно. треугольника: И 


<НТМЬ> 
<НЕАП> 
<ТТТЬЕ>Точка внутри треугольника</ТТТЬЕ> 
<$сг1ре 1ападцаае="Фауа$сг1р®"> 
<!-- // 
Еопс&1оп саге (ах, ау, Ьх,Бу, сх, су) 

{ таг 3 = МабЬ.аЪз (ах* (Ъу-су) +Бх* (су-ау) +сх* (ау-Ьу)) 
гебоахгп 5 

} 

Еопс®1оп ро1про1у (9571) 

{ уаг х= М№опьег (о5].х.уа]1ае); уаг у= Мопьет (067.у.уа1ще) 
уаг ах= МопЬег (оБ).ах.уа1ае); уаг ау= М№опфег (оБ).ау.ха]оае) 
уаг Рх= Моирег (ою).Бх.уа1ае); уаг Бу= Маопег (о5) .ру.ха1оае) 
уаг сх= Мильег (065 .сх.уа1ще); уаг су= Мапрет (оЪ].су.ха]1ле) 
уаг $=саге (ах, ау, Бх,Ъу, сх, су) 
уаг $1=сахге (ах, ау,Ьх,Бу,х,у). 
уаг $2=саге (ах, ау, х,у, сх, су) 
уаг $3=саге (х,у,Бх,Бу, сх, су) 
1Е (Маер.аЬз$ ($-31-$2-$3) <= 0.001) “ 


ор) .гез.уа1ае="точка лежит внутри треугольника" 
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е15е 
оь).гез.уа]ае="точка не лежит внутри треугольника" 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОрУ> 
<Н4>Лежит ли точка внутри заданного треугольника?</Н4> 
<РОВМ папе="ЁЕогт1"> 
<РВЕ> 
Координаты первой вершины треугольника: 


х=<1про® суре="еехе" $12е=7 пате="ах"> у=<1праЕ вуре="%ехе" 51хе=7 
паме="ау"> 


Координаты второй вершины треугольника: 


х=<1приЕ фуре="$ехе" $12е=7 пате="Ьх"> у=<1прие $суре="6ехе" з1хе=7 
паме="ру"> | 


Координаты третьей вершины треугольника: 


х=<1приЕ вуре="6ехе" $12е=7 паме="сх"> у=<1прие Еуре="Еехе" $1хе=7 
паме="су"><рг> 


Введите координаты точки: 


х=<1приЕ суре="$ехе" $12е=7 пате="х"> у=<1приЕ буре="%ехе" з1хе=7 
паще="у"><Втг> 


<1приЕ фуре="БаЕоп" уа1]ле=Вычислить опС11ск=" ро1про1у (ЁЕогта1) "><Вг> 
Результат: <1прае $уре="$ехЕе" $5172е=40 паще="гез"><Вг> 
<1праЕ Еуре="гезее" уа1ае=Отменить 
</ЕОВМ> 
</ворУу> 
</НТМГ> 


Точка внутри области треугольника 


Треугольник АВС на плоскости задан координатами вершин. Построим еще 
один треугольник, соединив середины сторон данного треугольника отрез- 
ками (рис. 2.7). Напишите сценарий, проверяющий, принадлежит ли задан- 
ная точка одному из заштрихованных треугольников. 


> 


Будем использовать функцию 
ро1лпро1у (ах, ау, Ъх,Бу, сх, су, х, у) 
которая проверяет, лежит ли точка с координатами (х, у) внутри треуголь- 


ника, задаваемого координатами вершин. В программе необходимо найти 
координаты точек О, ЕЁ, Е, зная координаты точек А, В, С. Выяснить, при- 
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надлежит ли точка заштрихованной области можно, проверив значение ло- 
гического выражения 

_( ро1про1у (ах, ау, ах, ау, Ех, Ру, х,у) || 

ро1про1у (ах, Аау,Бх,Бу, ех,еу,х,у) || 

ро1про1у (Ёх,Еу, ех,еу, сх, су, х,у)) 


Рис. 2.7. Вложенные треугольники 


Если точка принадлежит одному из заштрихованных треугольников, то зна- 
чение выражения равно гие; если же точка ни одному из треугольников не 
принадлежит, то значение выражения — Еа1зе. Однако число вызовов 
функции ро1про1у (ах, ау, Бх,Бу,сх,су,х,у)} Можно сократить, заметив, 
что точка принадлежит заштрихованной области, если она лежит внутри 
треугольника с вершинами А, В, С, и вне треугольника с вершинами ЕЁ, О, 
Е, или, другими словами, когда истинно выражение 

( розпро1у (ах, ау,Бх,Бу,сх,су,х,у) && 

| ( ро1зпро1у (Ех, Еу, ах, Ау, ех, еу,х,у)) 


В документе оставлены поля, выдающие дополнительную информацию о 
принадлежности точки каждому из заштрихованных треугольников. Резуль- 
тат решения приведен в листинге 2.6. 


ооо ооо вов оочо точ ое 9 оо о о ооо ооо рос ооо ооо ооо оо соо оор ооо бо ча ооо оо оно ооо ооо о ооо ооо оч ооо оо ооо ооо соо оо ооо поро ооо соо ооо ооо ооо ос ооосоосвое хооовосос ово оо р ооо ю 
: ® 


<НИТМГ> 
<НЕАО> 
<ТТТЬЕ>Точка внутри заштрихованной области треугольника </ТТТЬЕ> 
<$сг1ре 1апдцаде="Зауа$сг1р®"> 
<!-- // 
Еопсе1оп саге (ах, ау, Бх, Бу, сх, су) 
{ уаг $ = МабИ.аЬ$ (ах* (Бу-су) +Бх* (су-ау) +сх* (ау-Бу)); гебагп $ } 
Еапс®1оп ро1про1у (ах, ау, Бх,Бу, сх, су, х, у) 
{ хаг з=саге (ах, ау, Бх,Бу, сх, су) 


уаг $1=саге (ах, ау, 5х, Бу, х,у) 


3 Зак. 834 
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уаг $2=саге (ъх,Бу,х,у, сх, су) 
уаг $3=саге (х,у, ах, ау, сх, су) 
уаг р=ЁЕа1зе 
1Е (Мабр.аЪз (5-$1-$2-$3)<0.1) {р= &гае} 
гесогп р | 
} 
Еопс®1оп рр1 (057) 

{ уаг х =М№оег (об) .х.уа1ое); уаг у=Мопрег (057) .у.уа1ае) 
уаг ах=Мопьег (ою).ах.уа1ае); уаг ау=Мопьехг (ою).ау.уа1ще) 
уаг Бх=Мапретг (о5].Бх.ха]1ае); уаг Бу=Мапрег (ою).Бу.уа1ае) 
уаг сх=М№опфет (о5).сх.уа1ае); Уаг су=Маопрег (05) .су.уа11е) 
уаг Ях= (ах + 5х) /2; уаг ау= (ау + Бу) /2 


уаг ех= (рх + сх)/2; уаг еу= (Бу + су) /2 
уаг Ех= (ах + сх)/2; таг Еу= (ау + су) /2 
ор].6езе.уа]1ае = ро1про1у (ах, ау, Бх,Бу, сх, су, х,у) 


ор).6езе1.уа1ае= ро1про1у (ах, ау, ах, ау, Ех, Еу,х, у) 
ор).$езе2.уа1ае= ро1про1у (ах, ау, Бх,Бу, ех,еу,х, у) 
ор) .$е$Е3.уа1це= ро1про1у (Ех, Еу,ех, еу, сх, су,х, у) 
ор] .6езЕ4.уа1ие= ро1про1у (Ех, Еу, ах, ау, ех, еу,х,у) 
уаг гез{1="точка вне заштрихованной области" 
1Ё( ро1про1у (ах, ау, ах, ау, Ех, Еу,х,у) || 

| ро1про1у (ах, ау, Бх,Бу,ех,еу,х,у) || 

ро1про1у (Ех,Еу,ех‚, еу,сх,су,х,у) ) 
гез{1="точка принадлежит заштрихованной области" 
оЬ7.гез1.уа]ае = ге$Е1 
уаг гезЕ2="точка вне заштрихованной области" 
1Е (ро1про1у (ах, ау, Бх, Бу, сх, су, х, у) && ! 

(ро1про1у (Ех, Еу, ах, Ау, ех, еу,х,у))) 


тез=2 = "точка принадлежит заштрихованной области" 
ор) .гез2.уа]ае = гез{2 
} 
//--> 
</зсх1рЕ> 
</НЕАО> 


<ВОБУ> 
<Н4>Определение, лежит ли точка внутри заштрихованной области</Н4> 
<ЕОЕМ папе="Ёоут1"> 


<рге> 
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Координаты первой вершины треугольника: 


х=<1праЕ буре="Еехе" $1хе=7 папе="ах"> у=<1приЕ вуре="®кехе" $12е=7 
папе="ау"> 


Координаты второй вершины треугольника: 


х=<1прие куре="Еехе" $12е=7 паме="Ьх"> у=<1приё буре="%ех®" $12е=7 
паце="ру"> 


Координаты третьей вершины треугольника: 


х=<1прае вуре="Еехе" $15хе=7 паме="сх"> у=<1при® вуре="%ехе" $12е=7 
папе="су"><рпг> 


Введите координаты точки: 


х=<1праЕ буре="еехе" 312е=7 папе="х"> у=<1прие буре="{ехе" $12е=7 
пате="у"><Вг> 


<1прие Еуре="Баебоп" уа]ае=Вычислить опС11ск=" рр1 (ЁЕоги1) "><Вх> 
Первый вариант решения: <1праё куре="вехе" $12е=50 паме="гез1"> 
Второй вариант решения: <1приаё буре="%ехе" $з12е=50 папе="гез2"> 
Тесты 
Внутри АВС: <1праё $уре="бехе" $12е=20 паме="$ез®"> 
Внутри АБРЕ: <1приё $уре="$ехе" 312е=20 папе="$ез{1"> 
Внутри ОВЕ: <1прае $уре="$ехе" $12е=20 папе="$езе2"> 
Внутри ЕЕС: <1пра6 фсуре="еехЕ" $12е=20 папе="$ез3"> 
Внутри ОЕЕ: <1праЕ $уре="кехЕ" $12е=20 паме="$ез{4"> 

<1прае буре="гезее" уа1]ае=Отменить> 

</ЕОВМ> 

</ВОрУ> 

</НТМГЬ> 


Циклическая смена изображений 


Необходимо написать сценарий, в результате выполнения которого не- 
сколько заданных изображений последовательно появляются в документе 
через равные промежутки времени. При нажатии на кнопку Остановить че- 
редование изображений прекращается. Возобновить просмотр рисунков 
можно, если нажать кнопку Начать снова (рис. 2.8). 


Событие 1оаа возникает в тот момент, когда обозреватель заканчивает за- 
грузку окна. Как реакция на событие 1оаа вызывается функция зисср:с* (). 
Считается, что файлы с изображениями хранятся в той же папке, что и до- 
кумент со сценарием. 


Метод зекТ1меозе выполняет действие, задаваемое первым параметром, по 
истечении указанного в миллисекундах промежутка времени, определенного 
вторым параметром. В рассмотренном примере в качестве первого парамет- 
ра задается функция зиссрус* (), тем самым обеспечивается повторение вы- 
зова функции через каждые две секунды. Просмотр изображений будет пре- 
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кращен после нажатия кнопки Остановить. Если просмотр изображений 
требуется продолжить, то следует щелкнуть по кнопке Начать снова. 


Рис. 2.8. Чередование рисунков 


Мы уже неоднократно пользовались тем фактом, что страница содержит 
объекты, зависящие от ее содержания, и эти объекты являются наследника- 
ми объекта досомепе. Ссылка на объект может быть осуществлена по имени, 
‘заданному параметром паше тега <нтмт>. Изображение в документе может 
быть задано с помощью тега <т:мс>, например, так: 


<ТМС згс="и1.91Е" папе="тур1се"> 


Доступ к объекту 1таде в этом случае может быть осуществлен следующим 
образом: | 


Аосчмепф .шур1се 


Документ с описанным сценарием выглядит так, как представлено в лис- 
тинге 2.7. 


"Листинг 27. Использование функции велнес 1 
<НТМЫ> 
<НЕАО> 
| <ТТТЬЕ>Повторение с помощью функции эзееТ1лмеочЕ</ТТТЬЕ> 
<5сг1ре 1ападааде="Зауа$ сг1ре"> 
<!-- // 
уат К=1 
ЕапсЕ1оп геЕЁ () 
{К=5} 


Еопсе1оп 5асср1с® () 
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{ уаг = аосамепе 
ТЕ (К<=4) 
{1Е (К==т) 
{А.мур1се.5гс="т1.91Е"; К++} 
е15е 
ЗЕ (К==2) 
{А.мур1се.згс="т2.а91Е"; К++} 
е]15е 
1Е (К==3) 
{А.мур1се.згс="т3.91Е"; К++} 
е]5е 
1Е (К==4) 
{А.пур1с®е.згс="4.91Е"; К=1} 
зееТ1мео\йе ("зисср1с* ()", 2000) 
} 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОБУ опТоаа="$асср1с® ()"> 
<Р>Просмотр рисунков</Р> 
<]1МС згс="п1.91ЁЕ" паме=шур1се мзАбй=100> 
<ГОВМ папе="ЁЕотти1"> 
<1праЕ $уре="гезее" уа1ае=Остановить опС11ск=геЕ () > 
<1приё Есуре="Баеоп" уа]ае="Начать снова" опС11ск="К=1; 
зисср1с® ()"> 
</ЕОВМ> 
</ворУ> 
</НТМГ> 


Смена изображений при наведении 
указателя мыши 


Напишем сценарий, во время работы которого смена рисунков происходит 
при наведении курсора мыши на изображение. 


При перемещении пользователем курсора мыши над изображением возни- 
кает событие Моцзебоуег. Опишем функцию зисср1с* (), которая будет реак- 
цией на это событие, и определит, какое изображение следует поместить в 
документ. Воспользуемся тем фактом, что загружаемые изображения хра- 
нятся в файлах с именами п1.21, ..., п14.2. Для загрузки А-го изображения 
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формируется имя файла по формуле "м"+к+".д1Е". Приведем сценарий в 
листинге 2.8. 


‚ Листинг 2.8. Смена изображений при попадании курсора нарисун0к ``! 
<НТМЬ> 
<НЕАР> 
<ТТТЬЕ>Смена рисунков при перемещении курсора мыши 
над изображением</ТТТЬЕ> 
<$сг1ре 1]1апдцаде="Фауа5сг1р®"> 
<!-- // 
уах К=1 
Еопсе1оп засср1се () 
{ уаг Яа= аосащепе 
1Е (К < 4) 
К=К+1 
е15е К=1 
Я.мур1се.эгс="м"+К+". 91" 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОПУ> 
<Н4>Для смены изображения поместите курсор мыши над рисунком.</Н4> 
<1МС згс="и1.91ЁЕ" паме=тур1се имзаЕВ=150 опМочзебуег="$иасср1с® ()"> 
</ВОрУ> 
</НТМЬ> 


Эффект визуального 
удаления изображения 


Напишем сценарий, во время работы которого при наведении курсора мыши 
на изображение оно начинает удаляться от зрителя, уменьшаясь в размерах. 


При решении такой задачи воспользуемся свойством "зав объекта 1таде. 
При каждом вызове функции зисср1с*() изменяется размер выводимого 
изображения и этим достигается эффект удаления от зрителя. Функция 
зесТ1теоц* ("зисср1с* ()",500) производит повторный вызов функции 
5исср1с®() через каждые полсекунды. Когда размер изображения умень- 
шится до заданного, движение прекратится. В начальный момент документ 
имеет вид как на рис. 2.9. 
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При наведении курсора мыши на рисунок, 
изображение начинает удаляться от зрителя. 


уемлллкл: алое 


поощряла оликоощелнама ок яхта поля < оуаьл-ве иже отн 


т: Г мя компьютер. 


Рис. 2.9. Эффект удаления от зрителя 


>| 
^^. О ржи [перым 7 О О О авы . 
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Для каждого рисунка параметры уменьшения размера изображения и время об- 


новления следует подобрать индивидуально. Сценарий описан в листинге 2.9. 


«НТМТ.> 
<НЕАО> 


<ТТТЬЕ>Удаляющееся изображение</ТТТЬЕ> 


<5сг1рЕ 1апачаде="Зауа$сг1ре"> 
<!-- // 


Еопс&1оп засср1с® () 
{ уаг а=аосомепе 
уаг м=а.тур1се.м1аею. 
1Ё (\“>150) 
{Ч.мур1се.м1АеА=м—10 
А.пуртсе. згс="т$т. эра" 


зееТ1меой* ("$асср1с® ()", 500) 


//--> 
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</зсг1ре> 
</НЕАО> 
<ВОрУ> 

<р4>При наведении курсора мыши над рисунком 

изображение начинает удаляться от зрителя. </Н4> 

<1Мб згс="мзи.)рд" патше=мур1сЕ ’опМоцзебуег="5$асср1с® ()"> 

</вВору> | 
</НТМЬ> 


Эффект визуального 
приближения изображения 


Напишем сценарий, при выполнении которого заданное изображение начи- 
нает увеличиваться, т. е. моделируется эффект приближения изображения. 


Эта задача в некотором смысле является обратной к только что рассмотрен- 
ной. Будем увеличивать при каждом вызове функции размер изображения 
до тех пор, пока оно не достигнет заданного размера. Повторные вызовы 
функции одгр1с*() обеспечиваются функцией зеЕТ1меоч*+, Параметры кото- 
рой следует подобрать в зависимости от изображения. В начальный момент 
документ имеет вид как на рис. 2.10. 


Текст сценария и документ, его содержащий, приведены в листинге 2.10. 


| Листинг 2.10. Эффект приближения изображения = _ В 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Увеличивающееся изображение</ТТТЬЕ> 
<$сг1ре 1апацаде="Дауа$сг1р®"> 
<!-- // 
Еорс®1оп @9гр1с® () 
{ ухаг а= аосчмепе 
‘уаг м= А.тур1с®.м1аев 
1Е (м < 300) | 
{ а.пур1се.мтаеВ=м + 10; 
А.пур1с®.гс="маг. ра" 
зееТ1меойе ("ахр1с* ()", 500) 


} 
//--=> 
</зсг1рЕ> 

</НЕАО> 
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<ВОрУ> 
<Р>При наведении курсора мыши над рисунком 
изображение начинает приближаться к зрителю. </Р> 
<1ТМсС згс="паг.)ра" патме=тур1с®е м1АЕР=100 опМоцзе0уег="агр1с® () "> 
</ворУу> 
</НТМГ> 


| выа_ 


|. Правка 


а и 


„Ви _ Переса _ Избранное "Стаи", 


При наведении курсора мыши на рисунок 
изображение начинает приближаться к 
зрителю. 


ы 
Г Моем о А 


Рис. 2.10. Эффект приближения изображения 


Вертикальное графическое 
меню со стрелкой 
Необходимо написать сценарий, реализующий вертикальное графическое 


меню. При наведении курсора мыши на пункт меню слева от выделенного 
пункта появляется стрелка, как изображено на рис. 2.11. 
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СЁ использование графики 


Рис. 2.11. Вертикальное графическое меню со стрелкой 


В файле с именем рс|Н1.21 хранится изображение, соответствующее первому 
пункту меню, в файле с именем рсП2.2 — второму пункту меню и т. д. При 
выборе некоторого пункта меню слева от изображения, соответствующего 
выбранному пункту, появляется стрелка. Если курсор мыши выходит из об- 
ласти изображения пункта меню, то стрелка исчезает. Изображение стрелки 
хранится в файле с именем Би 1.211, а в файле Би®.2! размещается изобра- 
жение, совпадающее с цветом фона, и использующееся тогда, когда пункт 
меню не выбран. В документе располагается десять изображений по два на 
отдельной строке. Пары изображений, которые нельзя размещать на разных 
строках, заключаются в Теги <поьг> И </поьг>. Первая пара изображений 
соответствует первому пункту меню и представлена в документе следующим 
образом: 


<порг> <]МС згс="Баб0.91Е" млаер="31" рВезап*="31" паме="р1"> 
<А пгеЕ="6ср1.Бем" оптоц5еоуег="ТМС (р1,&гце)" 
оппочзеоце="ТМС (р1, Еа]15е) "> 
<1ТМс згс="рсЬ1.91Е" а1%="форматирование текста" Богаег="0" 
и1АЕр="103" Ве1ап&="35"></А> 
</побг> <Ьг> | 
При попадании курсора мыши в область изображения возникает событие 


Моцзе0уехг, Параметр обработки события опМопзебуег получает значение 
ТМС (р1, сгие). 
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Назначение функции тмс() помещать или убирать стрелку слева от изобра- 
жения, соответствующего выбранному пункту меню. Данная функция опи- 
сывается следующим образом. 
Еопсе1оп Т1Мб (р1се, асЕ1оп) 
{ 1Е (ас1оп) 
{р1се.зхс="ра1.41Е" } 
е15е 
{ р1се.зкс="Ьо 0.91" } 
} 


Какой пункт меню выбран, задается первым параметром, второй параметр 
определяет, помещать или убирать стрелку с помощью загрузки изображе- 
ния из файла Би®.2Ё или Би 1.21. 


Документ со сценарием, реализующим графическое меню, представлен в 
листинге 2.11. 


| Листинг 2. 11. Вертикальное меню со стрелкой. 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Вертикальное меню со стрелкой</ТТТЬЕ> 
<$5сг1ре 1апацаде="Лауа5сг1р®"> 
Еопсе1оп Т1МС (р1с®, ас®1оп) 
{ 
1ЁЕ (асе1оп) 
{ р1сЕ.згс="Биа 1.91" } 
е]15е 
{ расе.згс="рое0.а1Е" } 
} 
</зск1рЕ> 
</НЕАО> 
<ВООРУ раскКагоцпа="Ёоп1.)ра"> 
<Н2><ЕОМТ со1ог="#0000ЕЕ">Содержание< /ЕОМТ></Н2> 
<порг> <1Мс згс="рае0.31Е" и1Абб="31" Везав*="31" папе="р1"> 
<А ргеЁ="©ср1.ВЕм" оппопзеотег="ТМС (р1,6гае)" 
| оппопзеоне="ТМС (р1, Еа1зе) "> 
<1ТМс згс="рср1.491Е" а1%&="форматирование текста" Богаег="0" 
и1Ар="103" Ве1аьЕ="35"></А> 
</порг> <Ьг> 


<порг><1Мб згс="рае0.91Е" илай="31" ве1арё="31" паме="р2"> 
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<А ргеЕ="Еср2.Юм" оппоцзеоуег="ТМС (р2, Егае)" 
оппоиц5еоцт="ТМсС (р2, Еа1зе)"> 
<1Мб згс="рср2.91Е" а1+="создание списков" Богаег="0" мтаЕ="103" 
ВезавЕ="35"></А> 
</порг> <рг> 
<порг><1Мс згс="ра0.91Е" млар="31" Везапе="31" паще="р3"> 
<А пгеЕ="$сВЗ.БЕм" оппоцзеоуег="ТМС (р3, +гае)" 
оппоц5еоц+="ТМС (р3, Еа1$е)"> 
<ТМС згс="рср3.91Е" а1+="построение таблиц" Богаег="0" и1аеп="103" 
ВезавЕ="35"></А> 
</поБг> <Бг> 
<порг><1Мс згс="Ьае0.91Е" изабб="31" резап="31" папе="р4"> 
<А пгеЕ="6ср4.Бем" оптоцзеоутег="ТМС (р4, Е гае)" 
оппоц5еоце="ТМС (р4,Еа]1зе) "> 
<1ТМс $гс="рср4.91ЁЕ" а1%="использование графики" Богает="0" 
и1АЕр="103" везавЕ="35"></А> 
</порг> <рг> 
<порг><1Мс згс="роа60.91Е" изар="31" ре1ае="31" пацще="р5"> 
<А ПгеЕ="6ср5.Вем" оппоицзеоует="ТМС (р5, Егае)" 
оппоцзеоц*="ТМС (р5, Еа15е) "> 
<]Мб згс="рср5.91Е" а1*="создание фреймовой структуры" 
Богаег="0" илар="103" везав*="35"></А> 
</порг> <Ьг> 
</ВОрУ> 
</НТМЬ> 


Горизонтальное графическое 
меню со стрелкой 


Напишем сценарий, реализующий горизонтальное графическое меню. При 
наведении курсора мыши на пункт меню сверху от выделенного пункта по- 
является стрелка, как изображено на рис. 2.12. 


При создании горизонтального графического меню используем таблицу, со- 
стоящую из двух строк, по пять ячеек в каждой. Пункты меню в виде графи- 
ческих изображений хранятся в ячейках второй строки. Если выбран некото- 
рый пункт меню, то над ним появляется стрелка. Назначение функции тмс() 
такое же, как и в предыдущем примере. Обратите внимание на вызов указан- 
ной функции: вместо логического значения можно использовать 0 или 1. 


| 
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построение таблиц 


Рис. 2.12. Горизонтальное графическое меню со стрелкой 


НТМГ-код представлен в листинге 2.12. 


| Л ИСтинг 2. 12. Горизонтал ьное меню со стрелкой — 
<НТМЫ> 
<НЕАО> 
<ТТТЬЕ>Горизонтальное меню</ТТТЬЕ> 
<$сг1рЕ 1ападчаде="Фауа$сг1ре"> 
Еопс®1оп ТМС(р1се, асё1оп) 
{ 1Е (асе1оп) 
{р1сЕ.згкс="граЕ1.а1Е"} 
е15е 
{р1сЕ.згс="грЬое0.а1Е"} 
} 
</зсг1ре> 
</НЕАО> 
<ВООУ раскКагоцпа="Еоп1.3)ра"> 
<Н2><ЕОМТ со1ог="#0000ЕЕ">Содержание< / РОМТ></Н2> 
<ТАВЬЕ се115зрас1па=0 се]11раЧа1та=0> | 
<ТВ> 
<ТР а119п=сеп®ег><1Мс згс="гБае0.а1Е" 
и1АЕр="31" везар&="31" паме="р1"></Тр> 
<ТР а11ап=сепфег><1МС згс="гЬае0.а1Е" 
м1Аст="31" ре1а6*="31" паще="р2"></ТО> 
<ТР а11ап=сеп$ег><1ТМбс згс="гроае0.а1Е" 
и1Аер="31" резаре="31" раще="р3"></тТр> 
<ТО а119п=сепфег><1МС зтс="ЕЬиЕ0. 91" 
и1АЕВ="31" ве1арЕ="31" папе="р4"></ТО> 
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<ТЬ а119п=сепбег><1МбС згус="храе0.а1Е" 
и1АЕВ="31" Везарё="31" паме="р5"></ТрО> 
</ТВ> 
<ТВ> 
<ТО><А ПгеЕ="6ср1.Рём" Фагдеф="Ма1п" оппочзеоуег="ТМС (р1, 1)" 
опмоицзеойц*="ТМС (р1, 0)"> 
<ТМС згс="рср1.491Е" а1="форматирование текста" 
Богаег="0" изаер="103" велаве="35"></А></Тр> 
<ТО><А ВгеЕ="есЬ2.ПЕм" ФСагдек="Ма1п" оппоцзеоуег="ТМС (р2, 1)" 
оппоцзеоче="ТМС (р2, 0)"> 
<Мб згс="рср2.91Е" а1&="создание списков" 
Богаег="0" мтаер="103" ВелавЕ="35"></А></ТО> 
<ТО><А РгеЕ="Еср3З.БЕм" фагдее="Ма1п" опптоцзеоуег="ТМС (р3, 1)" 
оппоц5еоце="ТМс (р3, 0)"> 
<ТМс згс="рср3.91Е" а1{="построение таблиц" 
Богаег="0О" илар="103" велзавЕ="35"></А></ТО> 
<Тр><А пгеЕ="$ср4.РЕм" Сагдеф="Ма1п" оптоцзеоуег="ТМС (р4, 1)" 
оппоч$еоче="ТМС (р4, 0)"> 
<1Мб згс="рср4.91Е" а1{="использование графики" 
Богаег="0" изаЕр="103" везавЕ="35"></А></ТО> 
<ТО><А ргеЕ="6ср5.ВЕт" сагадеф="Ма1п" опмоцзеоуег="ТМС (р5, 1)" 
оппоцзеоце="ТМС (р5, 0)"> 
<ТМс згс="рср5.91Е" а1{="создание фреймовой структуры" 
Богдег="0" и1афр="103" везавЕ="35"></А></ТО> 
</ТВ> | 
</ТАВЬЕ> 
</ВОПУ> 
</НТМГ> 


Оператор $и/Йсл и его свойства 


В тех случаях, когда при решении задачи требуется выбрать один вариант 
действия из нескольких возможных, удобно воспользоваться оператором 
$мтЕСВ. 


Синтаксис оператора зм1есь следующий: 
$мТЕСВ (В) 
{ сазе Г1; $1; 
сазе 12: 52; 
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сазе Тп: 95п; 
аеЁао1+*: $5 
} 


где в — выражение; 1,1, 12, ..., 11 — литералы; $1, $2, ..., $п, $ — операторы. 


Выполнение переключателя происходит так: вычисляется значение выраже- 
ния в. Если значение в равно 11, то выполняются операторы $1, а затем все 
остальные операторы либо до первого оператора ьхеак, либо до конца опе- 
ратора зи1есн. Если значение в равно 12, то выполняются операторы $2, а 
затем все остальные операторы либо до первого оператора ьгеак, Либо до 
конца оператора зи1+есь и т. д. Если же значение в не равно ни одному из 
значений 11, 12, ..., п, ТО выполняются операторы $. Часть деЁац1*: $ МО- 
жет отсутствовать, тогда переключатель имеет вид 


$м1Еср (В) 
{ сазе 11: 51; 
сазе 12: 52; 


сазе т: 5п; 


} 


В этом случае, если значение выражения в не равно ни одному из значений 
11, 12, ..., Ър, ТО оператор эзи1Есв завершает свою работу, что эквивалентно 
пустому оператору. На самом деле переключатель удобно записывать в виде: 
мтЕСИ (В) 
{ сазе 11: 51; Ьгеак; 
сазе 12: 52; огеаКк; 


сазе 1п: 5п; Бгеак; 
аеЁао1*: 5 
} 


В этом случае оператор ьгеак обеспечивает завершение работы переключа- 
теля после выполнения очередного варианта. 


День недели 


Напишем программу, которая по номеру дня определяет его название. 


Задачу можно решить с использованием условных операторов, в этом случае 
программа будет ненаглядной. При решении такого рода задач удобно ис- 
пользовать переключатель. Переменной $ в зависимости от номера дня не- 
дели будет присвоено его название. В листинге 2.13 приведен требуемый 
сценарий. 
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"Листинг 2. 13. "Определениег по номеру дня. его: названия. 


® : . ® 
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<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Определение по номеру дня его названия</ТТТЬЕ> 
<5сг1ре 1апачаде="Зауа$сг1ре"> 
<!-- // 
Еапсё1оп поп@ау (07) | 
{ уаг м = №мфег (о5] .поп].уа1ае); 
= аоситепе 
уаг 5 
5мТЕСВ (м) 
{ сазе $="понедельник"; ргеаК; 
сазе 5="вторник"; БгеаК; 
сазе з="четверг"; ргеак; 


$5="пятница"; геаКк; 


( 
1 
2 

сазе 3: $="среда"; Бгеак; 
4 
сазе 5 
6 


сазе 5="суббота"; Бгеак; 
сазе 7: з="воскресенье"; Ьгеак; 
Чега11*: 5="ошибка в номере дня" _ 
} 
ор) .гез.уа1ще=$ 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВООУ> 
<Р>Определение названия дня по его. номеру</Р> 
<ГОВМ паще="Еотт1"> 
Введите номер дня: <1прие фуре="бехе" з1хе=7 паще="пиаи1"><Вг>> 
Название дня: 
<1праЕ туре="БаЕ оп" уа]ае=Определить опС11сКк=" пошЧау (Ёогт1) "> 
<1проЕ суре="вехе" 312е=20 папе="гез"><Вг>> 
<1прае фуре="гезее"> 
</ЕОВМ> 
</воруУ> 
</НТМЬ> 
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Номер квартала 


Необходимо написать программу, которая по номеру месяца определяет, в 
какой квартал он попадает. 


Напомним, что в первый квартал попадают январь, февраль, март, во вто- 
рой — апрель, май, июнь и т. д. Обратите внимание на формулу, которая 
обеспечивает вычисление номера квартала: 


пе (п-1- (п-1)$3) /3+1 
НТМГ-код приведен в листинге 2.14. 


, Листинг 2.14. Определение по номеру месяца номера квартала | 
<НТМГ> 
<НЕАР> 
<ТТТЬЕ>Определение по номеру месяца номера квартала</ТТТЬЕ> 
<$сг1ре ]апдааде="Зауа$сг1ре"> 
<!-- // 
ЕорпсЕ1оп памку (0Ь)) 
{ уаг п = №лфет (057 .пим1.уа1ае); 
Я = аосомепе 
уахг п= (п-1- (п-1) $3) /3+1; 
оЪ) .гез.хуа]лае=т 
змТЕСВ (п) 


{ сазе 1: Ч.мг1%е ("первый квартал"); БгеаКк; 


сазе 2: Ч.мг1ее ("второй квартал"); Ьгеак; 


( 

( 
сазе 3: Ч.мг1фе ("третий квартал"); БгеаКк; 
сазе 4: Ч.мг1фе ("четвертый квартал"); огеакК; 
е 


ЯеРац1е: А.мхг1 
} 


("ошибка") 


} 
Еапсе1оп езе () 
{ Еог (уаг п=1; п<= 12; ++п) 
Чосимеп® .иг1е (п, " ", (п-1- (п-1)%3) /3+1,"<рт>" ) 
} 
//--> 
</зск1рЕ> 
</НЕАО> 
<ВОПУ> 
<Р>Вычисление номера квартала по номеру месяца</Р> 
<ЕОКМ пате="Ёогт1"> 
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Введите номер месяца: <1праЕ $уре="$ехе" з12е=7 паще="пои1"><Вг>> 
Месяц относится к кварталу номер 
<1прие Еуре="раеоп" уа]ае=Определить опС11сКк="памщку (Ео1)"> 
<1праЕ +уре="ЕехЕ" 515е=7 папе="гез"><Вг>> 
<1праЕ вуре="гезее"> 
</ЕОВМ> 
</вору> 
</НТМТ> 


Определение номера дня по его названию 


Напишем программу, которая по названию дня определяет его номер. 


Обратите внимание, что при описании синтаксиса переключателя в качестве 
метки варианта т, выступает литерал. В языке Лауа$спр® строка является ли- 
тералом. В других языках строка, как правило, относится к сложным струк- 
турам данных. В переключателе можно использовать в качестве метки вари- 
анта строковое значение, что облегчает решение задачи. Приведем только 
сценарий для данной задачи (листинг 2.15). 


| Листинг 2.15. Определение номера по его названию . 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Определение по названию номера дня</ТТТЬЕ> 
<5сг1рЕ 1апдиаде=" Зауа$сг1ре"> 
<!-- // 
ЕопсЕ1оп Чаупиш (ор)) 
{ уаг м = 05) .пам1.хуа1ае; 
уаг 5 
м1есИ (м) 
{ сазе 'понедельник': $=1; геак; 
сазе 'вторник': $=2; ргеак; 
сазе 'среда': ° в=3; Бгеак; 
сазе 'четверг'!: $=4; ргеаКк; 
сазе 'пятница': 5=5; БгеаК; 
сазе 'суббота': з=6; Бгеак; 
сазе 'воскресенье': $=0; БгеаК; 
ЧеЁаз1*: $з=' ошибка в названии дня' 
} 


оь7 .гез.уа]1ае=з$ 
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//--> 
</зсг1рЕ> 
</НЕАР> 
<ВООУ> 
<Р>Определение по названию дня его номера</Р> 
<ЕГОВМ паме="Еотт1"> 
Введите день: <1пра®е суре="®ехе" $1хе=20 папе="пит1"><Вг>> 
Номер дня: 
<1праЕ суре="раЕеоп" уа]де=Определить опС11ск="Аааупам (Ёоги1)"> 
<1праЕ фуре="$ехе" $12е=25 папе="гез"><рг>> 
<1приЕ уре="гезее" уа1ае="Обновить"> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Траектория движения точки 


Точка движется вдоль ломаной в указанном направлении. Требуется напи- 
сать сценарий, который определяет координаты точки в конце шага. 


Вид документа при выполнении теста приведен на рис. 2.13. 


-10 -9 -8 -7 -6 -5 -4 -3 -2 2345678910 


1 Точка начинает движение из начала координат. 
Положительное число шапов - движение вверх. 
Отрицательное число шапов - движение вниз. 


Число шагов; 8 


Вычислить | 
Координаты точки; х В у Е 


_Отменить | 


Рис. 2.13. Пример движения точки вдоль ломаной 
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При решении задачи удобно провести прямые, соединяющие точки лома- 
ной. Так как точка движется только по целочисленным координатам, то в 
зависимости от того, какому участку принадлежит точка, можно определить 
ее координату в конце шага. В функции используется переключатель для 
определения соотношений между координатами х и ув конце шага. 


НТМЕ-код приведен в листинге 2.16. 


| Листинг 2.16. Движение точки вдоль ломаной на один шаг ^^ о в | 
<НТМГ> 
<ТТТЬЕ>Движение вдоль ломаной</ТТТЬЕ> 
<НЕАП> 
<$сг1ре> 
<!--// 
Еопс&1о0оп поуеро1п* (051) 
{ уаг а=Мапфег (об) .пим.уа1ае) 
уахг р=а%5 
уаг с=а-Ь 
уаг Ч=с/5 
уаг е=а 
уаг Е=2*а 
1Е (а>0) 
{ эмтеср (ъ) 
{ сазе 1: Е+=Е; БгеаК; 
сазе 2: Е+=Е; е+=1; ргеаК; 
сазе 3: Е+=1; е+=2; БгеаК; 
сазе 4: Е+=2; е+=2; Ьгеак; 
} 
} 
е1 зе 
{ эмтЕсЬ (Ъ) 
{ сазе -1: е+=1; Бгеак; 
сазе -2: Е-=1; е+=1; Ьгеак; 
сазе -3: Е-=1; ргеаКк; | 
сазе -4: Е-=1; е-=1; ргеаКк; 
} 
} 


ор].х.уа1ае=е . 
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ор].у.уа1чае=Е 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОРУ рдсо1ог=ЕЗЕЗЕЕ> 
<НА а119п=сепфег>Движение вдоль ломаной</Н4> 
<ГОВМ папе="Еогт1"> 
<]1МС згс="СгаЕ_ 2.)рд" паме="с1" рогаег=2> 
<РВЕ> 
Точка начинает движение из начала координат. 
Положительное число шагов — движение вверх. 
Отрицательное число шагов — движение вниз. 
Число шагов: <1приЕ паме="пом" Еуре="$ехе" $12е=5><рг> 
<1праЕ $уре="БоЕЕоп" уа1ае="Вычислить" паме="Ъ1" Ор- 
С11ск="тоуеротп® (Ёогти1) "> 
Координаты точки: х <1прие пацще="х" суре="вехе" $12е=5> у <1праЕ папе="у" 
фуре="$ехе"$12е=5> 
<рг> 
<1приЕ суре="гезее" уа]ае="Отменить"> 
</РВЕ> 
</ЕОЕМ> 
</ворУ> 
</НТМТ> 


Перестановка изображений 


В документе расположены три изображения. Два текстовых поля дают воз- 
можность пользователю ввести номера изображений, которые требуется по- 
менять местами. Напишите сценарий, осуществляющий такой обмен. 


Считаем, что изображения пронумерованы слева направо, начиная с нуля. 
Если значения номеров рисунков введены неправильно, то требуется выдать 
сообщение об ошибке. Документ после обмена первого и второго изображе- 
ний приведен на рис. 2.14. 


В функции св3р1с*() исследуются введенные пользователем значения. Если 
значения менее | или более 3, то выдается сообщение о недопустимых ис- 
ходных данных. Далее исследуются варианты обмена в следующх парах: | и 
2, 1и3,2.и3,2и 1, Зи 1. Все эти случаи рассмотрены и реализованы с по- 
мощью условных операторов. Приведем НТМТ-код документа в листин- 
ге 2.17. 
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| ” Фа _ Правка Ви Переход _ Избранное _ Серакка 1 


орьиаььлх ии слиамеьяьыи паи тол аедиотодажурилонеди Кодотел тост т ждал Келли 


Е) Мой компьютер. И 


Рис. 2.14. Перестановка изображений 


| Листинг 2.17. Обмен трех изображений 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Обмен трех изображений</ТТТЬЕ> 
<$сг1ре 1апацаде="Фауа5сг1р®"> 
<!-- // 
Еопсе1оп ср3Зр1с® () 
{ уаг А=аосчтепте 
уаг а= а. Еоги1 .пи1.уа1ае 
уаг р= а.Еоги1 .питм2.уа1ае 
уаг 1 
1Е (а<1||а>3|1Ъ<1 | |5>3) 
а1етф ("Неверно заданы параметры") 
е1 зе 
{ 1Е (а==1) 
{ 1=Аа.рп1.5згс 
1Е (Б==2) 
{ Ч.рм1.згс=А.ри?.згс; 9А.ри2.5гс=1 } 
е1зе 
1Е (Ъ==3) 
{ а.ри1.5т:с=а.ра3.згс; А.рш3.$гс=1 } 
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{ 1=а. риа. $:с 
1Е (Б==1) | 
{ 4.рю2.зхгс=а.ри1.згс; Ч9.ри1.зхс=1 } 
е1зе 
1Е (Ю==3) | 
{ 4.ра2.згс=а.ри3З.$гс; аА.рм3З.$Ес=1 } 
} 


е15е 
1Е (а==3З) 
{ 1=а.ри3.5гс 
1Е (6==1) 
{ а.рм3.зхс=а.рм1.зт:с; а.ри1.5т:с=1 } 
е15е 
1Е (5==2) 
{ а. рм3.згс=а.ри?.згс; @.рш2.згс=1 } 
} 
} 
} 
//--> 
</зсг1рЕ> 
</НЕАО> | 
<ВОРУ Расо1охг=ЕВЕЗЕЕ> 
<СЕМТЕВ> 


<Н4>Обмен трех изображений</Н4> 

<ТМС згс="и1.91Е" паме=ри1 м1аЕВ=100> 

<ТМб эгс="т2 .а1Е" пате=ри и1ар=100> 

<МС эгс="м3.91ЁЕ" пате=ри3 м1АЕВ=100> 

<РГОВМ патме="Еотт1 "> 
<1приЕ буре="кехе" патме="пип1" $12е=3> и 
<1праЕ фуре="®ехе" паще="пим2" $12е=3> 
<1праЕ Еуре="БаЕ оп" уа]пае="Обменять" опС11ск="сВЗр1с® ()"> 

</ЕОВМ> | 

</СЕМТЕВ> 

</ВОБУ> 
</НТМЬ> 


Функцию сь3Зр1с+() можно упростить, если объединить варианты "1 и 2" и 
Зи и Зи "Зи ТГ", "2иЗ3"и "Зи 2". Для этого надо найти максималь- 
ное и минимальное из введенных пользователем значений. Если эти значе- 
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ния не совпадают, то исследовать надо следующие варианты: "|1 и 2", "| и 3" 
и "2 и 3". Приведем пример функции св3Зр:се+ (). 
Еопс®1оп сВ3р1с® () 
{ уаг а=аосотепе 

уаг а= а. Еогт1 .пим1.уа]1щае 

уах р= а.Еоги1 .пам2.хуа1ае 

уаг а1=Маев.тзп (а,Ъ) 

уаг 21=МаеИ.тах (а,Ъ) 

уаг 1 

1Е (а1<1|1Ъ1>3) 


а1ехф ("Неверно заданы параметры" ) 


е15е 
({1Е (а1 != 1) 
{1Е (а1==1) 
{1=а. рп]. 5гс 
ЗЕ (61==2) 
{Ч.ри1.згс=а.ри2.згс; аА.рт2.$хс=1} 
е1 зе 
ТЕ (51==3) 
{Ч.ри1.згс=а.ра3.згс; А.рш3.$хс=1} 
} 
е1 зе 


1ЁЕ (а1==2) 
{1=а.рш2.згс; А.ри2.згс=а.ри3.згс; а.рмЗ.$гс=1 } 


} 


В третьем варианте описания функции св3р1с&() используется переключа- 
тель. Он позволяет текст функции сделать более наглядным. 
ЕопсЕ1оп ср3Зр1с® () 
{ уаг а=аосамепе 

уаг а= А.Еогт1 . пит] .уа1ае 

уахг = а.Еог1 . паша .уа1ае 

уаг а1=МаЕВ.глп(а,ЪЬ) 

уаг Ь1=МаеИ .шах (а,Ъ) 

уаг 1 

1ЁЕ (а1<1|1651>3) 

а1егЕ ("Неверно заданы параметры" ) 
е1 зе 
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{1Е (а1 != Ь1) 
$м1Еср (а1) 
{сазе 1: 1=а.ри1.5$гс; 
мтЕСВ (1) 
{сазе 2: а.ри1.$гс=а.ри2.згс; @.рш2.5згс=1; ргеаКк; 
сазе 3: @.рп1.$5гс=А.ри3.згс; А.рм3.5зхс=1; Бгеак 
}; ЮгеаК; 
сазе 2: 1=а.рт2.згс; 
а.рт2.зтгс=Ч.ршЗ.згс; Ч.ри3.з:с=1; ргеак 


Принятие решения о принадлежности 
точки некоторой оболасти 


Напишем сценарий, в результате работы которого определяется, принадле- 
жит ли точка с координатами (х, у) заштрихованной области. Пользователь 
вводит значения, определяющие область, и координаты точки на плоскости, 
затем нажимает на кнопку Вычислить. Результат работы сценария отобража- 
ется в текстовом поле (рис. 2.15). 


Принадлежит ли точка заданной области? 


Введите размерыги К: г. Е В. Е о 


Результат: ана принадленят области 


Рис. 2.15. Точка и область 
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Точка с координатами (х, у) лежит внутри ромба, четыре вершины которого 
задаются координатами (/, 0), (0, —”), (—, 0), (0, »), в случае, если выполня- 
ется следующее неравенство [> + |И < г. При решении задачи нас интересует 
область, которая расположена внутри ромба с координатами А и вне ромба с 
координатами г. Для определения абсолютного значения некоторой величи- 
ны следует обратиться к методу аьз стандартного объекта маеь. Функция 
ро1песаге (оь)) выполняет требуемую проверку. 


Полностью НТМГ-код документа приведен в листинге 2.18. 


: Листинг 2.18. Точка и область | . 
<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Точка и область. Жукова Е.</ТТТЬЕ> 
<$сг1ре> 
<!-- // 


Еорсе1оп ро1песаге (о5)) 


{ ухаг х = №ирег (ор) .поп1а.уа1ае) 
уаг у = №лиьег (07 .пим2а.уа1ае) 
уаг г = №Миег (об) .пошЗа.уа1ае) 

( ) 


°уаг В = МипЬег (ор) .пам4а.уа1ае 
уаг е=МафП.аЬз (х) +МаеВ .арз (у) 
1Е ((е>=г)&& (е<=В)) 


{05].гез.уа1ае = "Точка принадлежит области" } 
е1 зе 
{ор).гез.уа1ае = "Точка не принадлежит области" } } 
//--> 
</5$сг1р*> 
</НЕАО> 
<ВОРУ расо1ог=ЕЗВЕВЕЕ> 
<СЕМТЕВ> 
<Н4>Принадлежит ли точка заданной области?</н4> 
<ЕОЁКМ патше = "Ёоги1"> 


Введите размеры ги ВБ: 

у: <1праЕ Еуре = "фехЕ" паше = "помЗа" $12е = 7> 

В: <1праЕ ®уре = "Еехё" папе = "паи4а" $17е = 7> 
<рг><1МсС згс = "1.)]рд" Богаег=1 Бзрасе=10 узрасе=10><рх> 
Точка: 


х: <1прифс буре = "вехЕ" паме = "пам1а" $17е = 7> 
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у: <1праЕе Буре = "Еехе" патме = "пим2а" 312е = 7><Ьг> 
<1приё Еуре = "Баебоп" уа1ае = "Вычислить" 

опс11ск = "ро1пЕсаге (Ёоги1) "><рг> 
Результат: 
<1праЕ туре = "бехе" паме = "гез" 512е = 30><Ьг> 
гезее><рг> 


<1приЕ $уре 
</РОВМ> 
</СЕМТЕВ> 


</ворУу> 


</НТМТ> 


Упражнения 


1. 


Вводится последовательность из пяти чисел. Напишите сценарий, в ко- 
тором определяется число максимальных элементов. 


Напишите программу, которая определяет, можно ли построить тре- 
угольник с заданными длинами сторон. 


Точка на плоскости задается своими координатами. Определите, какой 
из четвертей прямоугольной системы координат принадлежит заданная 
точка. 


Участникам тестирования было предложено шесть задач. За решение ка- 
ждой из задач ставились баллы: 0, 1/3, 2/3 или 1. Всех участников, про- 
ходивших тестирование, распределили по четырем категориям в зависи- 
мости от результатов. В первую категорию включили участников, все 
решения которых оценены максимальным баллом 1. Во вторую катего- 
рию вошли участники, все задачи которых оценивались не ниже, чем 2/3, 
но обязательно была хоть одна задача, решение которой оценено на 1. 
В третью категорию попали участники, у которых все задачи были оце- 
нены на 2/3 балла. Остальных участников отнесли к четвертой категории. 


е Создайте анкету конкретного участника тестирования: В анкете долж- 
на быть указана фамилия, номер школы, оценки за решения задач. 
При обработке анкеты для участника требуется определить сумму на- 
бранных баллов и категорию, в которую зачислен участник. 


» Подготовьте четыре рисунка, на каждом из которых указан номер ка- 
тегории. Напишите сценарий обработки анкеты, при выполнении ко- 
торого в документе появляется рисунок с номером категории тести- 
руемого. | 


По результатам сдачи экзаменов в сессию решено назначить стипендию 
по следующим правилам. Учащимся, сдавшим все шесть экзаменов на 
оценку 5, назначается стипендия в размере 200 у. е. Тем учащимся, кото- 
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рые получили оценку не ниже 4 и три из экзаменов сданы на 5, назнача- 
ется стипендия в 100у.е. Студентам, все экзамены которых сданы на 
оценку 4, назначается стипендия в размере 50 у. е. Все остальные студен- 
ты стипендию не получают. 


» Создайте анкету учащегося, в которой указана фамилия, номер группы 
и результаты оценок за шесть экзаменов, сданных во время сессии. 
При обработке анкеты требуется определить средний балл за экзамен 
и размер назначенной стипендии. | 


» Подготовьте четыре рисунка, на каждом из которых указан размер 
стипендии. Напишите сценарий обработки анкеты, при выполнении 
которого в документе появляется рисунок с размером назначенной 
стипендии. 


Напишите программу, которая по заданному значению х вычисляет и 
выводит значение у. График зависимостей значений у от значений х при- 
веден на рис. 2.16. 


Рис. 2.16. График функции 


. Участникам Олимпиады было предложено шесть задач. За решение каж- 
дой из задач ставились баллы: 0, 10, 20 или 30. Первое место присужда- 
лось участникам, все задачи которых были оценены максимальным чис- 
лом баллов. Второе место заняли участники, решения всех задач которых 
были оценены не ниже, чем на 20 баллов, причем, по крайней мере, одна 
задача имела высший балл. Третье место заняли участники, решения всех 
задач которых оценивались 20 баллами. Призовые места остальным уча- 
стникам не присуждались. 


е Создайте анкету участника Олимпиады. При обработке анкеты требу- 
ется определить сумму набранных за решения задач баллов и место, 
на которое участник Олимпиады претендует. 


» Подготовьте три рисунка, на каждом из которых указано место (1, 2 или 
3). Напишите сценарий обработки анкеты, при выполнении которого в 
документе появляется рисунок с номером присужденного места. 
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8. 


9. 


10. 


Точка движется по ломаной, указанной на рис. 2.17, передвигаясь за 
один шаг по целым значениям. Напишите программу, которая опреде- 
ляет координаты точки в конце шага, если известны координаты точки в 
начале шага. Значения координат — целые. 


Рис. 2.17. Изображение ломаной 


Участники конкурса представляют по семь работ. Каждая из работ оце- 
нивается 3, 5, 7 или 10 баллами. За участие в конкурсе претендентам на- 
значалась премия в зависимости от результатов оценки работ. Участни- 
кам, все работы которых получили высшую оценку, назначается премия 
в размере 500 у. е. Участникам, все работы которых получили балл не 
менее 7, но хотя бы одна работа была оценена высшим баллом, назнача- 
ется премия в размере 300 у. е. Участникам, все работы которых были 
оценены на 7, назначается премия в размере 200 у. е. Остальным участ- 
никам конкурса была назначена премия в 50 у. е. 


» Создайте анкету участника конкурса, в которой указывается фамилия 
участника и оценки за представленные работы. При обработке анке- 
ты требуется определить сумму баллов за работы и размер назначен* 
ной премии. 


® Подготовьте четыре рисунка, на каждом из которых приведен размер 
назначенной премии (500, 300, 200 или 50). Напишите сценарий об- 
работки анкеты, при выполнении которого в документе появляется 
рисунок с размером назначенной премии. 


Заданы три целых значения. Напишите сценарий, при выполнении ко- 
торого определяется и выводится в документ информация о том, можно 
ли построить треугольник с длинами сторон, равными заданным значе- 
ниям. Если треугольник построить можно, то требуется выяснить его 
вид: прямоугольный, остроугольный, тупоугольный. При определении 
вида треугольника в документе должно появиться соответствующее изо- 
бражение. 
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12. 


13. 


14. 


15. 
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Напишите программу, которая определяет, находится ли точка с задан- 
ными координатами внутри заштрихованной области. Область представ- 
лена на рис. 2.18. 


Рис. 2.18. Точка и заштрихованная область 


Три точки на плоскости задаются координатами своих вершин. Напи- 
шите сценарий, при работе которого определяется, можно ли построить 
треугольник с вершинами в заданных точках и выводится соответст- 
вующая информация. Если треугольник построить можно, то требуется 
выяснить его вид: равносторонний, равнобедренный, разносторонний. 
При определении вида треугольника в документе должно появиться изо- 
бражение треугольника соответствующего вида. 


Два треугольника на плоскости задаются координатами своих вершин. 
Напишите сценарий, в результате работы которого определяется, явля- 
ются ли треугольники подобными. В каждом из вариантов решения 
должно быть выведено соответствующее графическое изображение. 


Отрезок на плоскости задается координатами своих концов. Напишите 
сценарий, который для точки на плоскости, заданной собственными ко- 
ординатами, определяет: 


е ЛЕЖИТ ЛИ заданная точка на отрезке, 


» точка не лежит на отрезке, но находится на той же прямой, что и от- 
резок; 


» Точка не лежит на отрезке и не принадлежит прямой, содержащей 
отрезок. 


Для каждого из вариантов ответа требуется вывести изображение, соот- 
ветствующее ситуации. 


Два круга на плоскости задаются координатами центра и радиусом. На- 
пишите сценарий, в результате работы которого определяется положе- 
ние кругов относительно друг друга. Варианты могут быть следующие: 


е один Круг лежит внутри другого; 
е круги не имеют общих точек; 
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16. 


17. 


18. 


19. 


20. 


21. 


22. 


23. 


24. 


» круги пересекаются; 
е круги имеют точку касания. 


В каждом из вариантов ответа должно быть выведено соответствующее 
графическое изображение. 


Круг на плоскости задается координатами центра и радиусом, квадрат — 
координатой левой верхней вершины и длиной стороны. Напишите 
сценарий, определяющий взаимное положение круга и квадрата. Воз- 
можны следующие варианты: 


»е круги квадрат не имеют общих точек; 
»® круг лежит внутри квадрата; 

»е квадрат лежит внутри круга; 

» круги квадрат пересекаются. 


В каждом из вариантов ответа должно быть выведено соответствующее 
графическое изображение. 


Треугольник на плоскости задается координатами своих вершин. Напи- 
шите сценарий, в результате работы которого выясняется, лежит ли за- 
данная точка на плоскости внутри треугольника, вне его или на одной 
из сторон. В каждом из вариантов ответа должно быть выведено соот- 
ветствующее графическое изображение. 


Точка может двигаться вдоль ломаной, указанной на рис. 2.19, смешаясь за 
один шаг на одну клетку. Напишите программу, которая определяет коор- 
динаты точки в конце шага, если известны координаты в начале шага. 


Напишите сценарий, определяющий координаты точки, которая дви- 
жется вдоль ломаной через заданное число шагов. Вид документа, со- 
держащего рисунок ломаной и поля для ввода числа шагов и вывода ре- 
зультата, приведен на рис. 2.19. 


Создайте документ, оглавление которого представляется вертикальным 
графическим меню. Над оглавлением помещается графическое изобра- 
жение, которое изменяется при выборе соответствующего пункта меню, 
например, на месте изображения появляется краткий комментарий к 
выбранному пункту. 


Напишите сценарий, в результате работы которого определяется, при- 
надлежит ли точка заштрихованной области. Созданный документ дол- 
жен иметь вид как на рис. 2.20. 


Напишите программу, которая по номеру дня недели определяет, явля- 
ется он рабочим или выходным. 


Напишите программу, которая по номеру учебной пары определяет вре- 
мя начала и конца занятий. 


Напишите программу, которая в зависимости от номера месяца в году 
определяет, к какому времени года относится месяц. 
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Движение вдоль ломаной 


-10 -9 -8 -7 -6 -5 -4 -3 -2 2345678910 


Начало движения - точка с координатами (0,0). 
Положительное число шагов - движение вправо. 
Отрицательное число шагов - движение влево. 


Число шагов: 6 


Координаты точки: х С У Г 


| мента! Ехр.__ [264 


Попадёт ли точка в заданную область? 


Введите значение К: | | 


Точка с координатами: х. | у: | . 


Вычислить `. 


Рис. 2.20. Точка и заданная область 


Глава 3 


Объекты клиента 


Общие сведения 


Во время интерпретации НТМЁ-документа браузером создаются объекты 
Лауа$сири. При создании сценариев объекты языка Лауа$спр! используются в 
качестве основных инструментальных средств. Многие свойства объектов 
определяются значениями параметров тегов языка НТМГ. Структура доку- 
мента отражается в иерархической структуре объектов, соответствующих 
НТМГ-тегам. Родителем всех объектов является объект и1паомз, располо- 
женный на самом верхнем уровне иерархии, он представляет окно браузера 
и создается при запуске браузера. Для того чтобы открыть новое окно в 
сценарии Лауа$сирЕ и отобразить в нем новый документ, применяется метод 
ореп, дЛя закрытия окна можно воспользоваться методом с1озе. Метод 
а1еге () объекта и1паомз отображает диалоговое окно с текстом, передан- 
ным методу в качестве параметра. Данный метод используется в случаях 
проверки правильности вводимых данных с помощью формы. Свойства 
объекта и1паомз относятся ко всему окну, в котором отображается документ. 


Подчиненными объектами (или объектами нижнего уровня) являются объ- 
екты Чосомепе, №15+огку, 1осае1оп, Егапе. Свойства объекта №1з+огу пред- 
ставляют адреса ранее загружаемых НТМГ-страниц. Свойства объекта 
1оса*1оп связаны с ЧЕГ-адресом отображаемого документа, объекта 
Егаше — со специальным способом представления данных. 


Свойства объекта досошепЕ определяются содержимым самого документа: 
шрифт, цвет фона, формы, изображения и т. д. Объект досимепе в зависи- 
мости от своего содержимого может иметь объекты, являющиеся для него 
подчиненными или дочерними. В частности подчиненными для объекта 
‘аосомепЕ являются объекты Еоги, 1тадае, 11пк, агеа И др. Иерархическая 
структура объектов представлена на рис. 3.1. 


Для каждой страницы создается один объект досомепе, некоторые его свой- 
ства соответствуют параметрам тега <вору>: ьаСо1ог, ЕаСо1ох, 11пКСо1ок, 
а11пКСо1ог, %11пКСо1ог. Методы иг1ее И мг1&е1п записывают в документ 
текст, задаваемый параметром. 


Если документ содержит изображения, то доступ к объекту, определяющему 
изображение, можно получить с помощью переменной, указанной в пара- 
метре папе тега <1мб>, как мы и поступали ранее. Объект 1паде имеет свой- 


4 Зак. 834 
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СТВО 1падез, Которое содержит ссылки на все изображения, расположенные 
в документе. Ссылки перенумерованы, начиная с нуля. Доступ к первому 
изображению можно получить с помошью составной конструкции 
аосимепе.1тадез[0], ко второму — адосащепе.1тадез[1]. Если на странице 
пять изображений, то доступ к последнему изображению можно получить, 
воспользовавшись ссылкой аоспмеп*.1тадез$ [4]. 


[Зовите ] [чет _] [ вен" ] [мае — 
лот [твое ][ ве ] мик ателог ] [ вуег | рат ] аенег- 


{ежагеа 
ме/рюач | гафю | 
раз$\м/ога 

|4деп 
[__орвоп__ 


Рис. 3.1. Иерархическая структура объектов 


Если на странице расположена форма, то все ее элементы являются подчи- 
ненными объектами этой формы. Тегу <говм> соответствует объект Еогп, 
являющийся подчиненным по отношению к объекту доситеп*. Доступ к 
форме можно осуществить с помощью значения, заданного в параметре 
папе Тега <гОвмМ>. Объект ога имеет свойство Еогиз, В Котором содержатся 
ссылки на все формы документа. Ссылки перенумерованы с нуля. Доступ к 
первой форме документа можно получить так: аосомепе. Еогиз [0], КО ВТО- 
рой — Чосомеп*.Еогм$ [1] ИТ. Д. Вместо индекса в свойстве-массиве гогтз 
можно указывать строку, значение которой — имя переменной для формы. 
Все элементы формы порождают соответствующие объекты, подчиненные 
объекту родительской формы. 


Рассмотрим примеры, в которых используются различные свойства объектов. 


Напомним, что для встраивания изображений в НТМЕГ-документ служит тег 
<1мб>, имеющий обязательный параметр зхгс, определяющий ЧВГ-адрес 
файла с изображением. Можно задавать размеры выводимого изображения. 
Значение параметра „зан определяет ширину изображения, значение пара- 
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метра незане — высоту изображения. Значения параметров ширины и высо- 
ты могут не совпадать с истинными размерами изображений, тогда при за- 
грузке изображения автоматически выполняется перемасштабирование. 


Изображение можно поместить в рамку. Для этого используется параметр 
рогаег. Значением параметра должно быть число, определяющее толщину 
рамки в пикселах. По умолчанию рамка вокруг изображения отсутствует, 
если только изображение не является ссылкой. | 


Параметр а1& определяет альтернативный текст. При наведении курсора 
мыши на изображение появляется комментарий. 


Изменение параметров изображения 


Необходимо написать сценарий, который для изображения в документе по- 
зволяет менять значения параметров ширины и высоты, создавать рамку 
вокруг изображения`и задавать альтернативный текст. 


я “ си А АА МА И ВА Ала АЗАТАЧ ААА ЛОЛ Кода рт отит оааа т 


И Зам _ Правка _ вм. _Избранное _ ‚ Сарвис.. ‚Справка _ 


Для изменения размеров изображения введите значения 
одного или двух параметров и нажмите кнопку Просмотр 


ширина (\л9): 


высота (нееНе: 


Для задания рамки введите число, определяющее толщину 
рамки в пикселах, и нажмите на кнопку Просмотр 


толщина рамки (Бог4ег): Го 


Альтернативный текст (а): 


Рис. 3.2. Изменение параметров изображения с помощью сценария 
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На рис. 3.2 представлены изображение и поля ввода, позволяющие задать 
значения, чтобы изменить некоторые параметры изображения. Следующие 
свойства объекта 1таде: Богаег, м1 ЕН, везан*, а1= соответствуют атрибутам 
тега <1мМб>: Богаег, м1АЕН, ВездВе, а1+. В сценарии следует предусмотреть 
ситуацию, когда значение какого-либо из параметров не задано. Доступ к 
объекту 1паде осуществляется с помощью значения, указанного в параметре 
паме Тега <1мс>. В рассмотренных ранее примерах изменялись такие свойст- 
ва изображения, как "зан, чтобы создавать эффект приближения или уда- 
ления рисунка, и свойство згс при организации смены изображений в до- 
кументе. На рис. 3.3 приведен вид документа после задания параметров 
графического объекта и выполнения сценария. 


||: "Файл __ Правка вм. _ Избранное _ "Сервис _ _Справка р ты ре ы в 


Параметры встраиваемого изображения 


Для изменения размеров изображения введите значения 
одного или двух параметров и нажмите кнопку Просмотр 


ширина (519): Г 20 
высота (паев): | 20 
Для задания рамки введите число, определяющее толщину 
рамки в пикселах, и нажмите на кнопку Просмотр 
толщина рамки (фогдег): |? 
Альтернативный текст (ав): 


[Параметры встраиваемого изображения 


Рис. 3.3. Результат выполнения сценария 


Приведенный пример иллюстрирует некоторые параметры тега <тмс>. Мож- 
но изменять параметры и сразу видеть, как в зависимости от их значений 
меняется изображение. Сначала в тегах НТМГ-документа зададим значение 
параметра папе, затем в сценарии получим доступ к различным элементам, 
используя значение параметра. 
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НТМГ-код представлен в листинге 3.1, а. 


"Листинг 3.1, а. Изменение. размеров ‘изображения и толщины рамки вокруг! него. 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ> Исследование свойств изображений </ТТТЬЕ> 
<$сг1ре> 
<!-- 
Еопсе1оп сОр1с® (057) 
{ уах и=ор).ма.уа1ае 
уаг К= оЪ7].Рд.уа1ае 
1Е (м !=0) аосамере.мур1с® .м1АбВ=м 
1Е (В !=0) аосимепе.мур1с* .Велаве=Ь 
Аосимеп® .тур1се.Богаег=ор).Бг.уа1ае 
Чосчщепе .тщур1с®.а1{=о0р].а1.уа1чае 
} 
//--> 
</зсг1р®> 
</НЕАО> 
<ВОПУ расо1ог="ЕВЕВЕЕ"> 
<СЕМТЕВ> 
<НЗ>Встраиваемые изображения</НЗ> 
<1МС згс=р1.91ЁЕ паще=тур1с®> 
<РОВМ паме="ЁЕотги1"> 
Для изменения размеров изображения введите значения одного 
или двух параметров и нажмите кнопку <В>Просмотр</В><Ьг> 
ширина (\1АЕП): <1праЕ Еуре="$бехе" паме="иА" $1хе=8><юг> 
высота (Ве190$): <1прие Буре="Еехе" паме="Ва" з1хе=8><Ьг> 
Для задания рамки введите число, определяющее толщину рамки 
в пикселах, и нажмите на кнопку <В>Просмотр</В><Ьг> 
толщина рамки (Богаег) : <1приЕ суре="Еехе" паме="Ьг" 
| | $12е=8 уа1ае=0><Ьг> 
Альтернативный текст (а1{): <1прие Еуре="вехе" 
папе="а1" $12е=40><Р> 
<1прае хуре="раефоп" уа]ае= "Просмотр" опс11ск="свр1с* (Еого1) "> 
<1приЕ суре="гезее" уа1ае="Отменить"> 
</ЕОВМ> 
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</СЕМТЕВ> 
</ВорБУ> 
</НТМт> 


В описанном документе имеется лишь одно изображение. Доступ к нему 
можно получить, воспользовавшись свойством 1падез объекта досошеп*, 
следующим образом: досимепе. 1тадез [0]. Доступ же к различным свойст- 
вам изображения можно получить с помошью свойств самого изображения, 
например, так: | 


Аосциепе® . 1тадез$ [0].м1аЕв 
аосомеп* .1тадез [0] .Пезапе 
Чосцтеп* .1тадез [0].Богаег 
Аосимепе .1таде$ [0] .а1е 


Диалог с пользователем обеспечивается с помощью формы. В последнем 
примере используется одна форма. Доступ к форме можно получить так: 
аосишепе . Еогтз [0]. Форма содержит шесть элементов, четыре текстовых 
поля и две кнопки. Свойство е1етепез формы хранит информацию обо всех 
ее элементах в том порядке, в каком они встречаются в НТМГ-документе. 
Получить доступ к объектам формы можно, воспользовавшись свойствами: 


Аоситепе . Еогтй$ [0] .е1епепе$ [0] 
аосптеп®. Еотт$ [0] .е1ептепе$ [1] 
Чоспмепе. Еогта$ [0] .е1ещепе$ [2] 
Чоспитепе . Еогти$ [0] .е1етепф$ [3] 
Чосотеп® .Еоги$ [0] .е1етепе$ [4] 
аоспиепе . Еогт$ [0] .е]етепе$ [51] 


В следующем варианте решения задачи (листинг 3.1, 6) доступ ко всем зна- 
чениям осуществляется с ПОМОЩЬЮ СВОЙСТВ 1падез И Еогиз объекта 
Аоспипепф. 


о тео ие ч ооо смо зоо увечье, эфозе лоотоооов ооо ноо оо ооо соо ио ооо ооововочя я < 


Листинг 3.1, 6: Исследование свойств изображений - 


<НТМЬ> 
<НЕАПО> 

<ТТТЬЕ> Исследование свойств изображений </ТТТЬЕ> 

<$сг1ре> 

<!-- 

Еопсе1оп сбр1с&1 () 
{ уаг м=аосящепе.Еогт$ [0] .е1етепе$ [0] .уа]ае 

уаг п=аоситепе. Еогт$ [0] .е1етепе$ [1].уа]щае 


1ЁЕ (м !=0) 
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Зосимеп® . 1тадез$ [0] .и1АЕП=м 
1Е (В !=0) 
аосчмеп* . 1тадез [0] .пезайе=В 
досомеп® .1таадез [0] .рог4ег= Аосчтепе. Еогта$ [0] .е1етепе$[2].уа1щае 
досомеп® .1таадез[0].а1Е= аосимепе. Еоттаз [0] .е1етепе$ [3] .уа]ае 
} 
//--> 
</зсх1рЕ> 
</НЕАО> 
<ВООУ Ьчсо1ог="ЕВЕВЕЕ"> 
<СЕМТЕВ> 
<НЗ>Встраиваемые изображения</НЗ> 
<1ТМс згс=р1.91Е> 
<ЕОВМ> 
Для изменения размеров изображения введите значения 
одного или двух параметров и нажмите на кнопку <В>Просмотр</В><Ьг> 
ширина (м1А%В): <1праое туре="®ехе" $12е=8><рг> 
высота (ре190®): <1при® вуре="$ехе" 512е=8><рг> 
Для задания рамки введите число, определяющее толщину рамки 
в пикселах, и нажмите на кнопку <В>Просмотр</В><Ьг> 
толщина рамки (Ъогаег): <1приЕ буре="кехе" $1хе=8 уа1пе=0><ртх> 
Альтернативный текст (а1%): <1прое фуре="Еехе" $17е=40><Р> 
<1прие фуре="Баееоп" уа1ае= "Просмотр" опс11ск="сПр1с®1 ()"> 
<1пра& Еуре="гезефе" уа1]ае="Отменить"> 
</ЕОВМ> 
</СЕМТЕВ> 
</ВОПУ> 
</НТМТ> 


Обратите внимание, что в этом варианте не заданы параметры папе в 
НТМГ-тегах. В них нет необходимости, т. к. доступ к необходимым значе- 
ниям осуществлялся на основе объектной модели Лауасире. 


Перестановка изображений 


Напишем сценарий, который реализует обмен рисунков в документе. Пусть 
в документе расположено четыре изображения, пронумерованных от 1 до 4 
(рис. 3.4). В текстовых полях указываются номера рисунков, которые необ- 
ходимо поменять местами. Требуется, чтобы после нажатия кнопки Поме- 
нять местами изображения переместились на нужные места. 
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13 й Перестановка изображений - МисгозоН Гобегле! Екруогет [= р 


аж ААА Ато иеечучуч 
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Галерея рисунков 


Рисунки с номерами 


| и 


_—_^_ Поменять местами __ 


Рис. 3.4. Обмен рисунков в документе 


Сначала проверим, правильно ли заданы номера изображений, если это не 
так, то выдадим сообщение. Переменная 2 служит для запоминания адреса 
первого графического изображения. Доступ к изображению с номером г! 
производится с Помошью конструкции аосомепе.1таде$ [11-1] . Для того 
чтобы на место изображения с номером г1 поместить изображение с номе- 
ром г2, требуется выполнить оператор присваивания: 


аосотепе .1тадез$ [1-1] .згс=Чосимеп® . 1таде$ [г2-1].5гс 


И, наконец, на место изображения с номером хг2 помещается изображение, 
которое ранее было на месте с номером г1, и адрес которого запомнили в 
переменной 2: 


Аосцтепе . 1пааез [12-1] .5гс=2. 


Приведем полностью документ со сценарием (листинг 3.2). 


эооррооооововоо ново оо © © Вов о ооо ооо ооо ро о ооо ор оо ооо ооо ооо ооо сов ово осу рососвиироно т о о 9 воров ооо ро росс ооо ооо оо ос ооо осо вот оооосооосооооос ооо ооо вос ооо овооооо ооо ооооониее < 
® . . ° 


| Листинг 3. 2. `Перестановка изображений с помощью сценария. — 


<НТМГЬ> 
<НЕАО> 
<ТТТЬЕ>Перестановка изображений</ТТТТЕ> 
<$сг1ре> 
Еопсе1оп срап (057) 
{ уаг г1=Маопрег (об) .а1.уа1лае) 
уаг г2=Маопрег (0о5].а2.уа1ае) 
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1Е ((:1<1)|| (:1>4) || (:2<1) [| (:2>4)) 
а1егЕ ("Неверно заданы номера рисунков!") 
е15е 
{ уаг 2г=аосотеп®.1паде$ [х1-1].$:Сс 
Зоситеп* . 1адез$ [11-1] .згс=аосяащепе .1тадез$ [г2-1].5$гс; 


Чосомеп*. 1падез [12-1] .$:с=7 


} 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
<СЕМТЕВ> 
<Н4>Галерея рисунков</Н4><рг> 
<1ТМС згс="р1.41ЁЕ" м1А="90" папе="р1с1"> 
<1ТМС згс="р2.41ЁЕ" м1АЕр="90" паме="р1с2"> 
<1ТМсб згс="р3.91Е" м1Аб="90" папе="р1с3"> 
<]1МС згс="р4.491Е" м1Абр="90" папе="р1с4"><рх><рг> 
<РГОВМ паще=Ёоги1> 
Рисунки с номерами<Ьтг> 
<1приЕ $уре="$ехе" папе="а1" $12е=1> и 
<1приЕ Еуре="$ех®" папе="а2" 512е=1><Р> 
<1прае фуре="рае®оп" уа1ие="Поменять местами" 
опС11ск="срап (Ёоги1) "> 
</ЕОВМ> 
</СЕМТЕВ> 
</ВОрУ> 
</НТМГ> 


Простое вертикальное меню 


Напишем сценарий, реализующий вертикальное графическое меню. При 
наведении курсора мыши на пункт меню меняется цветовая палитра, соот- 
ветствующая выделенному пункту меню (рис. 3.5). 


Такая задача уже решалась при обсуждении событий и реакции на них. Рас- 
смотрим другие способы решения этой задачи. 


Как и ранее, каждому пункту меню соответствует два изображения: первое 
изображение, когда пункт меню не выбран, второе — при выбранном пунк- 
те меню, цветовая палитра рисунка изменена. Графические изображения, 
соответствующие ситуации, когда пункты меню не выбраны, хранятся в 
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файлах с именами рсеП1.2, рсП2.>1, рсНЗ.21, реН4.>1, рсП5.21. Соответст- 


вующие им графические изображения с измененной палитрой хранятся в 
файлах с именами \/рсй 1.21, \рс|2.21, урсН3З.21[, \урс|4.1, мрсП5. 


Содержание 


Таблицы 


Рис. 3.5. Графическое вертикальное меню. 


Функция 1па имеет два параметра. Первый параметр задает выбор пункта 
меню, второй параметр — п — определяет номер пункта меню. От этого па- 
раметра зависит, какое изображение в документе требуется изменить 
(Чосомепе .1тадез [п-1].згс), И файл с каким именем использовать 
("мрсь"+п+".91Ё" ИЛИ рсв"+0+".41Е). Имя файла формируется динамически 
и представляет собой конкатенацию строк, одна из составляющих кото- 
рой — значение второго параметра. Если имена файлов не подчинены об- 
щему правилу, то в функции потребуется дополнительный анализ, какой 
файл подгрузить. Это сделать нетрудно, зная место в документе, из которого 
произошел вызов функции. Документ со сценарием, реализующий верти- 
кальное графическое меню, представлен в листинге 3.3. 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Простое вертикальное меню</ТТТЬЕ> 
<$сг1ре 1апдцаде="Зауа$сг1ре"> 
Еупс®1оп 19 (п, асе1оп) 


{1ЁЕ (асЕ1оп) 


Глава 3. Объекты клиента | 95 


{ аосимепе . падез [п-1] .зкс="мрсВ"+п1+" .91Е" } 
е]15е 
{ Зоситепе .1тадез [п-1].згс="рсв"+р+".а4#"} 
} 
</зсг1рЕ> 
</НЕАО> 
<ВОБУ раскагоипа="Ёоп1.7)ра"> 
<Н2><ЕОМТ со1ог="#0000ЕЕ">Содержание< /ЕОМТ></Н2> | 
<А НгеЁ="$св1.рем" опмочзеоуег="1та (1, 1)" опмочзеоце=" ма (1, 0)"> 
<]1Мсб згс="рсЬ1.91Ё" а1{="форматирование текста" Рогаег="0" 
и1АВ="103" ВезарЕ="35"></А><Ьг> 
<А ргеё="6сЬ2.рм" оппочзеоуег="1тма (2, 1)" опползеоц*="1та (2, 0)"> 
<1ТМС згс="рср2.91Е" а1]%="создание списков" рогаег="0" 
и1АбВ="103" ВезаБЕ="35"></А><Ьг> 
<А ВгеЕ="есВ3З.ВЕт" опмочзеоуетг=" па (3, 1)" опточзеоце="1та (3, 0)"> 
<ТМС згс="рср3.91Ё" а1{="построение таблиц" Рогадетг="0" 
и1Ар="103" Ве1ав*="35"></А><рг> 
<А ргеё="6ср4.Ю6м" оппоцзеоуег="1та (4, 1)" опмоцзеоче=" ла (4, 0)"> 
<]МС згс="рсп4.491Ё" а1\{="использование графики" Богаег="0" 
и1АЕН="103" ВезавЕ="35"></А><рхг> 
<А ргеЁ="есв5.Вем" оппмоцзеоуег="1т9а (5, 1)" опмоцзеойе="1та (5, 0)"> 
<]МС згс="рсЬ5.91Е" а1{="создание фреймовой структуры" 
Богаег="0" м1абв="103" резавЕ="35"></А> <рг> 
</ворУ> | 
</НТМЬ> 


Простое горизонтальное меню 


Напишем сценарий, реализующий горизонтальное графическое меню. При 
наведении курсора мыши на пункт меню изменяется световая гамма так, 
как изображено на рис. 3.6. 


При реализации горизонтального графического меню функция 1пд ВЫПОЛ- 
няет те же действия, что и в предыдущем примере. Графические изображе- 
ния, соответствующие пунктам меню, помещены в таблицу, которая состоит 
из одной строки и пяти ячеек. В каждую из ячеек помещено изображение 
для соответствующего пункта. Значения параметров се11радаа1па И 
се11зрас1па Тега`<ТАВЬЕ>, определяющих расстояние между ячейками таб- 
лицы и расстояние от содержимого ячейки и границы, равны нулю для того, 
чтобы создавалось впечатление единой графической панели. Сценарий, реа- 
лизующий графическое меню, приведен в листинге 3.4. 
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ЕТ Горизонтальное меню - МесгозоН |леете ЕкрИогеи 


лете 


[3 | _ Файл. _Правка_ "Ва ‚ Избранное _ _ Сервис Справка 


ри ими мрт. 


Содержание 


построение таблиц 


АРВ ВЕЕР В ВОВКИРОЕ РСОВСОО ВО О ВВОРОВ ООО ОСВЕЕ ОО ВО ОВО ВОВ СВО ВОВ ВОВ О ОИ 


<НТМГ> 
<НЕАШ> 
<ТТТЬЕ>Горизонтальное меню</ТТТЬЕ> 
<зсг1рё 1апацаде="Зауа$ сг1р®"> 
Еопсе1оп 19 (п, асе1оп) 
{1Е (асе1оп) 
{ аосимепе. 1тадез$ [п-1].зхс="мрсВ"+п1+".91Е"} 
е1зе 
{ аосимепе . 1щадез$ [п-1] .зкс="рсВ"+п1+".а1Е"} 
} 
</5сг1р®> 
</НЕАО> 
<ВООУ Баскагоцпа="Еоп1.7)ра"> 
<Н2><РОМТ со1ог="#0000ЕЕ">Содержание</ЕОМТ></Н2> 
<ТАВЬЕ Богаег=0О се1]раЯаа1па=0 се11$рас1па=0> 
<ТВ> 
<ТО> 
<А птеЕ="ЕСЬт Вет" оппоц$еоуег=" та (1, 1)" 
оппоч5еоче="1та (1, 0)"> 
<1МС зес="рсь1. 41" а1<="форматирование текста" 
рогаег="0" м1АВ="103" резан*="35"></А></ТО> 
<ТО> 
<А пгеЕ="6сВ2.В6м" опточзеоует=" ща (2, 1)" 
оппоцзеоце="1та (2, 0)"> 
<1ТМс згс="рсВ2.491Е" а1%&="создание списков" Богаег="0" 
и1Ар="103" ВезавЕ="35"></А></ТрЬ> 
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<ТО> 
<А ргеЁ="6ср3.ВЕм" оппоцзеоутег="1та (3, 1)" 
оппоц5еоце="1та (3, 0)"> 
<1МС згс="рср3.41Е" а1\{="построение таблиц" 
Богаег="0" м1Ап="103" везанЕ="35"></А></Тр> 
<ТрО> 
<А пгеЕ="ЕсЬ4 ре" оппоц5еоуег="1та (4, 1)" 
оппоц5еоце="1таа (4, 0)"> 
<1МС згс="рср4.91Ё" а1%="использование графики" 
Богаег="0" и1АЕр="103" везарЕ="35"></А></ТЬ> 
<ТрО> 
<А пгеЕ="ЕсЬ5.ВЕщ" оппочзеоуег=" аа (5, 1)" 
оппоц5еоце=" а (5, 0)"> 
<1МС згс="рср5.91Е" а1%*="создание фреймовой структуры" 
Богаег="0" им1Ар="103" резавЕ="35"></А></ТО> 
</ТВ> 
</ТАВЬЕ> 
</ВОрУ> 
</НТМГ> 


Анкета "Нагрузка преподавателя" 


Необходимо написать сценарий обработки анкеты преподавателя. В анкете 
заданы поля, в которые требуется ввести количество часов, отведенных на 
чтение лекций и проведение практических занятий, и число студентов. Если 
по предмету читаются лекции, то дополнительно планируется нагрузка: 10% 
времени от лекционных часов отводится на консультации, и для приема эк- 
замена планируется по 30 минут на человека. Если по предмету проводятся 
практические занятия, то предусмотрена контрольная работа из расчета 
15 минут на человека, зачет из расчета 20 минут на человека. Форма анкеты 
представлена на рис. 3.7. 


Аналогичные задачи неоднократно решались, написать сценарий предлага- 
ется в качестве упражнения. Предположим, что нагрузку преподавателя тре- 
буется представить в виде диаграммы. В анкете преподавателя заполняются 
первые три поля, а затем после нажатия кнопки Вычислить в документе 
должна появиться диаграмма, построенная по значениям тех полей, которые 
вычислялись в анкете, а именно: контрольные работы, зачеты, консульта- 
ция, экзамены. Диаграмма представляется с помощью изображений. Снача- 
ла в зависимости от исходных данных считаются значения требуемых вели- 
чин, затем вычисляется величина каждого из столбцов, и нужные изобра- 
жения помещаются в документ для формирования столбцов диаграммы. 
Столбцы диаграммы располагаются в ячейках таблицы, для каждого столбца 
выделена своя ячейка. | 
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Рис. 3.8. Нагрузка с диаграммой 
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Вторая строка таблицы содержит подписи к столбцам диаграммы. Если под- 
вести курсор мыши к столбцу, то выводится числовое значение, соответст- 
вующее столбцу диаграммы. Документ с введенными полями и построенной 
диаграммой изображен на рис. 3.8. 


Приведем для этого случая НТМГ-код со сценарием (листинг 3.5). 


<НТМЬ> 
<НЕАО> 

<ТТТЬЕ>Анкета "Нагрузка преподавателя" Роз1е4оу А.</ТТТЬЕ> 

<5сг1ре 1апдцаде=Фауа$сг1р®> 

<!-- 

Еопс®1оп агарвь (057) 
{ уаг К1 = 0; 

уаг 1 = о].1ес.уа1ае 
уаг р = оЪ).ргас*.уа1ае 
уаг $ = оЬ).з6аа.хуа1ае 
уаг саб1еНе1айе = 150; 
уаг КпТ1ие=0; 
уаг еТ1те=0; 
уаг КхгТ1ме=о; 
уаг 2Т1те=0; 


уаг Я= аосчпеплЕ 


1Е ($ == "") а1егф ("Введите количество студентов?") 
1Е ((1 1!= "") &&(1 != "0")) 

{ КлТме=Ма®В.хгоппа ( 1*10/100); еТиие=Ма®р . гола ($*30/60) } 
ЧЕ ((р != "") 68 (1 |= "О")) 


{ КеТие=Ма®В. гоцпа ($*15/60); 2Т1те=Ма ЕВ. гоппа (3*20/60) } 
5$Т1ие = кКоТиме+еТ1ме+КЕТ1ме+7Т1ме 
К1 = саб1еНе1апе/зТ1те; 
.1мадез[0].Везаре=МаЕВ . гоцпа (КгТ1ме*Кк1); 
.1пасде$[0].а1=КуТ1ще+" часов"; 
.Зтадез[1].Везаве=МаеН . гоипа (2Т1те*К1); 
.задез[1].а1{=7Т1ме+" часов"; 
.1лтадез$[2].Везар$=Маев . гоапа (кКоТ1ме*к1); 
.1тадез[2].а1+=КпТ1ие+" часов"; 


.1мадез[3].БезареЕ=МаеВ . гоппа (еТ1ме*к1); 


ророрроо 


.лтадез[3].а1+=еТ1те+" часов"; 
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Ч.1мадез [4] .Везап&=МаеВ . гоцпа ($Т1ме*К1); 
Ч.1тадез$[4].а1%=$Т1е+" часов"; 
} 
`Еипс®1оп СрескУа1Ночг$ (Войг$) 
{ 1Е (Тоогз < 0) 
а1ег* ("Недопустимо значение количества часов меньшее нуля!"); 
} 
РопсЕ1оп СВескУа1 Ми (пит) 
{ 1Е (пом <=О0) 
а1ег* ("Недопустимо значение меньшее либо равное нулю!"); 
} 
//--> 
</зсгарЕ> 
</НЕАО> 
<ВОРУ расо1ог=#сгсссс> 
<СЕМТЕВ> 
<НЗ>Анкета &чао*;Нагрузка преподавателя&ааое; </В3> 
<ЗМАТТ>После заполнения соответствующих полей для того, 
чтобы увидеть диаграмму, нажмите кнопку <В>Вычислить</В></5МАЬ> 
<ЕОВМ папе=аафа> 
<ТАВЬЕ Басо]1ог=#сссссс м1А&1=300 се11Рааа1па=2 
се115рас1п9=2 Бог4дег=1> 
<ТВ><ТЬ а119п=1еЁ><ю>Лекции</БЬ> <5та11> (часов) </зта11></ТО> 
<ТО а11ап=1еЕз><1праф фуре=ехе папе=1ес з12е=5 уа1ае="" 
опСрапае="СрескУа1Номт$ (01$ .уУа1ае) "></ТО> 
</ТВ> 
<ТВ><ТЬ а119п=1еЕ+><ю>Практика</Ъ> <5та11> (часов) </зта11></ТО> 
<ТО а11ап=1еЁ><1прие вуре=фбехЕ паме=ргасе $12е=5 уа]ае="" 
опСрапае="СвескУа1Ноцгз ($11$.уа1ае) "></ТО> 
</ТВ> | 
<ТВ><ТО а119п=1еЁ><5>Число студентов</Ъ> 
<зпа11> (человек) </5та11></ТО> 
<ТР а11ап=1еЕ><1приЕ Еуре=еехеЕ паме=зфоаа $17е=5 уа1ае="" 
опСвападе="СвескУа] Мам (61$ .уа1щае) "></ТрО> 
</ТВ> 
<ТВ а11ап=сепфех’><Тр со1зрап=2 Бадсо1ог=#сссссс> 
<1приЕ суре=Баефоп уа1ае="Вычислить" 
опС11ск="дгарВ (Чафа) "></ТО></ТВ> 
</ТАВЬЕ> 
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</ЕОВМ> 
<Н4>Диаграмма нагрузки по вычисленным полям<р4> 
<ТАВЕЕ и19В=212 Ве1аье=190 се11Ра@91па=О се115рас1па=1 Богаег=0> 
<ТВ уа11а9п=роееом м1ар=100 а11ап=сепёег> 
<ТО расо1ог=#аааааа Не190+=150> 
<]1МС згс=1х1.91Ё м1ар=75 ве1зарЕ=0 рогаег=0></ТО> ' 
<ТО расо1ог=#аааааа Пе1ай+=150> 
<1МС $гс=1х1.91Е м1аб=75 рВе1ар&=0 Богаег=0></Тр> 
<ТО расо1ог=#аааааа Пе190*=150> 
<ТМС згс=1х1.91ЁЕ м1АЕР=75 Везар=0 Богаег=0></ТО> 
<ТР Ь9со1ог=#аааааа Не1ар*=150> 
<ТМС згс=1х1.91Е м1аер=75 ВезарЕ=0 рогаег=0></ТЬ> 
<Тр Басо1ог=#аааааа Пе19*=150> 
<1МС згс=1х1.91ЁЕ м1АЕ=75 Ве190&=0 Богаег=0></ТО> 
</ТВ> 
<ТК уа11ап=ор а11ап=сепеег м1АЕР=100> 
<ТО Ве1а1*=40><5та11>Контрольная</зта11></ТО> 
<ТО Ве190&=40><5та11>Зачет</зта11></ТО> 
<ТО ре1ав*=40><5та11>Консультации< / зта11></ТО> 
<ТЬ Ве1а1*=40><5па11>Экзамен</зта11></ТЬ> 
<ТО ре195=40><5ма11>Всего</зта11></ТО> 
</ТВ> 
</ТАВЬЕ> 
</СЕМТЕВ> 
</ВОрУ> 
</НТМТ> 


Диаграмма в анкете преподавателя 


Необходимо написать сценарий обработки анкеты преподавателя. В анкете 
заданы поля и требуется вычислить те значения, которые определены в пре- 
дыдущем примере. Кроме того, для дополнительной нагрузки необходимо 
построить диаграмму, которая изображена на рис. 3.9. При наведении кур- 
сора мыши на соответствующее поле выводится вычисленное значение. 


Поля, соответствующие разным категориям нагрузки, имеют разный цвет. 
В этом случае в зависимости от полученных значений вычисляется ширина 
графического изображения для каждого из видов нагрузки. Считается, что 
ширина всей таблицы соответствует суммарной дополнительной нагрузке. 
Самостоятельно напишите сценарий и создайте документ. 
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Рис. 3.9. Диаграмма дополнительной нагрузки 


Изменение таблицы при разных 
значениях ее параметров 


Напишем сценарий, который позволяет продемонстрировать, как будет ме- 
няться таблица и ее ячейки при изменении значений параметров: Богаек, 
се1]зрас1па, се11рааа1пад. 


Напомним, что параметр ьогаег управляет видом рамки вокруг каждой 
ячейки, отображает линию сетки таблицы и вокруг всей таблицы. По умол- 
чанию рамки не рисуются. Численное значение параметра определяет тол- 
щину рамок в пикселах, рисуемую вокруг всей таблицы. На толщину рамок 
вокруг каждой ячейки это значение не влияет. Параметр се11зрас1па ИС- 
пользуется в виде се115рас1пд=п, ГДе п — численное значение параметра, 
определяющее расстояние между рамками двух смежных ячеек, как по гори- 
зонтали, так и по вертикали. Значение задается в пикселах и по умолчанию 
принимается равным двум. При значении се11зрас1п9=0 рамки смежных 
ячеек сольются, создадут впечатление единой сетки таблицы. Параметр 
се11рааазпа Применяется в виде се11рааа1па=п, ГДе п — численное значе- 
ние параметра в пикселах, которое может быть опущено. Величина п указы- 
вает на размер отступа между рамкой ячейки и данными внутри ячейки. По. 
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умолчанию значение равно 1. Все три параметра действуют независимо друг 
от друга; если какой-либо параметр опущен, то его значение: берется по 
умолчанию. 


Пусть таблица состоит из четырех ячеек, в каждой из которых хранится изо- 
бражение, как на рис. 3.10. 


< ое илл ау дд те ал ны 


Выберите значение параметров, которые требуется 
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СЕБЬРАРЬТМС по. ‚ с Поля внутри ячейки =] 


“Выполнить. ||" Обновить _ 


Рис. 3.10. Изображения и таблицы 


Для того чтобы воздействие параметров было наглядным, специально вы- 
бран разный фон для документа, таблицы и ячеек таблицы. Можно вводить 
значения для указанных параметров, изображение таблицы в документе бу- 
дет изменено в соответствии с параметрами. В сценарии требуется изменить 
значения свойств таблицы. 


Используем еще один способ доступа к элементам форм. При задании тегов 
можно применять параметр 1а. В теге <тАВЬЕ> задан параметр 1а="1+аь". 
Модификация размера рамки таблицы произойдет при изменении свойства 
ЧоситепЕ.а11 ("1%+аЪъ") .Богаег. Изменение других свойств таблицы про- 
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изойдет лишь в случае, когда в соответствующих полях расположены число- 
вые данные. Сценарий приведен в листинге 3.6. 


| Листинг 3.6. Изменение толщины рамки и полей внутри ячейки таблицы `_ в. = 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Таблицы, толщина рамки, ширина отступов</ТТТЬЕ> 
<$сг1ре> 
<!-- 
Еопсе1оп гзеф(оЪ71) 

{ аосимепе.а11 ("1$аб") .рогаег=1 
Аоспщепе.а11 ("1$аф") .се115рас1п9=15 
Чосотеп*.а11 ("16аЪ") .се1]1Рааа1та=10 
ор] .Бог.уа1оае=1 

_ 0).се115$.уа1ае=15 

ы оь) .се11р.уа1ае=10 

} 

Еопсф1оп $5е%(оЬ]) . 

{ доситепе.а11 ("145аь") .Богдег=Маньег (053 .рог.уа1чае). 

1Е (05].се11$.уа]ае != "") 

аоспцщепе.а11 ("1$ ар") .се115рас1па=Митрет (057 .се11$.ха]1е) 
1Е (05).се11р.ха1ае != "") 

Аоситепе.а11 ("1$аф") .се1]РаЯа1па=Митьег (057 .се11р.уа1ае) 

} 

//--> 
</зсг1ре> 
</НЕАР> 
<ВОРУ Баскагоцпа="Еоп1.7)ра"> 
<Н4 а11ап=сепсег>Таблицы, границы, ширина отступов</Н4> 
<ТАВЬЕ 14="16аф" Богаег=1 се115рас1п9=15 се11ра9Я1па=10 
Б9со1ог=511уег Баскагоипа="Еоп5.91Е" а11ап=сепеег> 
<ТВ> 
<ТР Басо1ог=$11уег><А ргеЕ="го1п5. а1Е"> 
<1МС зхс="ги1п$.91Е" рогаег="0" ила="120"></А></ТЬ> 
<ТР Ьасо1ог=$11уехг><А нге#="зрЬ1пх.а1Е"> 
<ТМС згс="5рЬ1пх.91Е" рогаег="0" илабв="120"></А></Тр></ТВ> 
<ТВ> — 
`<тр Ьасо1ог=$511уег><А ргеЕ="р04.)ра"> 
<ТМС згс="р04.)рд" рогаег="0" мта="120"></А></тТр> 
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<ТО 69со1ог=511уег><А пгеЕ="р07.7ра"> 


<]ТМС згс="р07.3)рд" рогаег="0" иза="120"></А></Тр></ТВ> 
</ТАВЬЕ> 


Выберите значение параметров, которые требуется изменить, 


и нажмите кнопку <В>Выполнить</В> 
<РОВМ папе="Еогта1"> 


<РВЕ> 


ВОВОЕВ 


<1приЕ суре="$ехе" $12е=8 патме=рог уа1ае=1> Толщина рамки 
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СЕБЬЗРАСТМС <1праё суре="+ех®" 312е=8 папе=се11$ уа]ле=15> Ширина проме- 
жутка между ячейками 


СЕБЬРАОРТМС <1прае $буре="$ехе" $з1хе=8 паще=се11р уа1ле=10> Поля внутри 


ячейки 


</РВЕ> 

<1прау$ суре="раефоп" уа]ае= "Выполнить" 

<1прие буре="гезее" уа]ае= "Обновить" опс11ск="г$5е® (Ёотта1) "> 
</ЕОВМ> 


</вВоПУ> 
</НТМЫ> 


Рис. 3.11. Пример работы сценария создания компактной таблицы 


йа | Фа Правка ^ 


Выберите значение параметров, которые 
требуется изменить, и нажмите кнопку 
Выполнить 


ВОРРЕВ р . Толщина рамки 


СЕБЬЗРАС1МС П `’ Ширина промежутка в 
СЕБЬРАРРТМС [о _ Поля внутри ячейки. 


_ обновить 


опс11сКк="5е (Ёоги1) "> 
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Считается, что смежные ячейки таблицы имеют общую границу, однако, в 
НТМГ-таблицах по умолчанию между ячейками оставляется место. Для того 
чтобы казалось, что смежные ячейки имеют общую границу, надо устано- 
ВИТЬ Параметр се11зрас1па равным нулю. 


Наиболее компактная таблица получится в случае, когда значения рассмотрен- 
ных трех параметров равны 0. Тогда ячейки окажутся расположенными вплот- 
ную друг к другу. Если все ячейки таблицы содержат рисунки одинакового раз- 
мера и эти рисунки требуется расположить вплотную друг к другу, то следует 
установить значения параметров равными нулю. Таблица примет вид как на 
рис. 3.11, если значения всех трех параметров задать равными нулю. 


Упражнения 


1. В анкете для каждого из пяти сотрудников приводятся данные: фамилия, 
зарплата, количество детей. Требуется написать сценарий для определе- 
ния дохода в семье на человека. Кроме того, необходимо определить ко- 
личество сотрудников, имеющих минимальный доход на человека. По- 
стройте диаграмму, отражающую доход в семье на человека. 


2. В анкете для каждого из шести сотрудников приводятся данные: фами- 
лия и год приема на работу. Требуется написать сценарий вычисления 
стажа работы и определения максимального числа сотрудников с одина- 
ковым стажем. Постройте диаграмму, отражающую стаж работы сотруд- 
НИКОВ. 


3. В анкете для каждого из шести сотрудников приводится информация: фа- 
милия и зарплата. Решено каждому из сотрудников назначить премию по 
принципу: если его зарплата меньше, чем средняя, то размер премии со- 
ставляет 50% от зарплаты, в остальных случаях — 30% от зарплаты. Требу- 
ется написать сценарий определения суммы, выдаваемой сотруднику на 
руки (зарплата плюс премия). Кроме того, необходимо определить коли- 
чество сотрудников, которые получили на руки максимальную сумму. 


4. Приводятся данные о закупках пяти наименований товаров: цена за еди- 
ницу и количество приобретенных экземпляров. Напишите сценарий, 
определяющий сумму, затраченную на приобретенные товары. Определи- 
те, имеются ли товары, на которые потрачена одинаковая сумма, и 
сколько их. Постройте диаграмму, отражающую затраченные суммы на 
приобретение разных товаров. 


5. В анкете для каждого из десяти студентов приводится информация: фа- 
милия и две оценки за контрольную работу. Студенты разделяются на 
несколько категорий. Категория "отличники" состоит из студентов, у ко- 
торых обе контрольные написаны на оценку 5, к категории "хорошо ус- 
певающие" относятся студенты, у которых оценка за каждую контроль- 
ную — 4 или 5, но студент не отличник. Категорию "успевающие" состав- 
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ляют студенты, у которых хотя бы одна контрольная написана на 3, на- 
конец "неуспевающие" — те студенты, которые имеют 2 хотя бы за одну 
контрольную. Требуется написать сценарий определения числа студентов 
в каждой категории. Постройте диаграмму распределения студентов по 
категориям. 


6. В анкете заполняется информация о шести студентах: фамилия и четыре 
оценки за сессию. Напишите сценарий определения категории студента 
и количество человек в каждой категории. Категории определяются сле- 
дующим образом: сдавшие все экзамены на 5 относятся к категории 
"отличники", имеющие хотя бы одну 2 — к категории "неуспевающие", 
все остальные студенты относятся к категории "успевающие". 


7. По результатам тестирования заполняется анкета: фамилия и результат 
выполнения каждого теста (плюс, если успешно, и минус, если тест не 
выполнен). Если выполнены все тесты, то оценка за работу 5, если вы- 
полнены четыре теста, то оценка 4, если выполнены три теста, то оценка 
3, в остальных случаях оценка 2. Напишите сценарий вычисления оценки 
и формирования сводки. В сводке содержатся сведения о количестве сту- 
дентов, получивших за работу 5, 4, 3, 2. 


Глава 4 _ 4 


Переключатели 


Общие сведения 


Данные удобно представлять с помошью элемента управления "переклю- 
чатель” (или "радиокнопка") в том случае, когда из нескольких вариантов 
может быть выбран лишь один. Например, для указания возраста можно 
задать интервалы: 


С "моложе 20"; 
О “от 21 до 30"; 
С “от 31 до 40"; 
О "старше 41". 


Пользователь может выбрать тот интервал, который определяет его возраст. 
Оценки, полученные на экзамене, также удобно представить переключате- 
лем, т. к. каждый студент способен получить лишь одну из оценок (2, 3, 4 
или 5). Для представления информации о полученном зачете достаточно 
двух радиокнопок. С помощью переключателя можно представлять инфор- 
мацию о семейном положении, образовании и многое другое. 


Предположим, что некоторая фирма принимает заказы на изготовление 
витражей. Заказчик должен выбрать форму витража, количество, указать 
размеры, материал и др. Требуется определить стоимость заказа. Мы рас- 
смотрим лишь фрагмент, в котором выбирается форма витража. Этот выбор 
осуществляется с помощью переключателя (или радиокнопки). Элемент 
"переключатель" отображается в виде круглой кнопки и существует только в 
составе группы подобных элементов. Может быть осуществлен выбор лишь 
одного элемента группы. Все элементы группы должны иметь одинаковое 
значение параметра паме. Обязательный параметр уа11е должен иметь уни- 
кальное значение для каждого элемента группы. 


Пусть для выбора фигуры задана ‘следующая форма: 
<РГОКМ паще="Еотгт1"> 
Введите значение 
<1приЕ суре="еехе" папе="Чафа" з12е=10><рВг> 
Укажите форму: <Бг> 


<1приЕ $уре="га@1о" пате="ЁЕу" уа]ае=1>квадрат<Ьг> 
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<1пра® суре="гаЯ1о" паме="ЁЕу" уа]ое=2>круг<Ьг> 

<1праЕ суре="гаА1о" папе="Ёу" уа1ще=3>треугольник<рг> 

<1прие суре="гезее" уа1ае="Отменить"><Вг> 

Площадь: <1при® суре="%ехе" папе="гез" 512е=10>. 
</ЕОВМ> 


В этой форме шесть элементов. Первый элемент служит для ввода строки тек- 
ста. Следующие три элемента образуют группу и являются переключателями. 
Пятый элемент создает кнопку сброса, нажатие которой отменяет все сделан- 
ные изменения. Шестой элемент является элементом для ввода строки. 


Так как объект Еогиз имеет свойство-массив е1ещепез, В котором содержатся 
ссылки на элементы формы В порядке их перечисления в теге <Говм>, то по- 
лучить доступ к первому элементу формы можно либо с помощью значения 
параметра паме этого элемента (досомепе.Еоги1.Чафа), либо используя объ- 
ектную модель Лауазсир! (аосомепе. Еогт$ [0] .е1етепез[0]). Второй элемент 
рассматриваемой формы можно получить, если воспользоваться конструкцией 
аосощепе .Еоги$ [0].е1емепе$[1]. Это элемент-переключатель, определенный 
в составе группы элементов. В рассматриваемом примере группа элементов 
состоит из трех переключателей. В одну группу входят элементы с одинако- 
вым значением параметра папе. Доступ к следующим элементам группы может 
быть осуществлен так: досомеп*. Еоттаз [0] ‚е1ещепе$ [2] ‚ Аосищепе. Еогта$ [0]. 
е1ещеп*$[3]. Обязательный параметр ха1ае должен иметь уникальное зна- 
чение для каждого элемента группы. Пользователь может выбрать ТОЛЬКО 
один вариант. 


Вычисление площади фигуры 


Напишем сценарий, в котором в зависимости от длины стороны или радиу- 
са и формы выбранного витража вычисляется его площадь. Для простоты 
будем считать, что витраж может иметь либо форму квадрата (задается его 
сторона), либо форму круга (задается радиус), либо форму равностороннего 
треугольника (задается его сторона). 


Плошадь рассматриваемых фигур считается по формуле Аха?, где К — коэф- 
фициент, зависящий от формы выбранной фигуры; а — задаваемое пользо- 
вателем значение. Вычисления будут проще, если коэффициент К указать в 
качестве значения параметра уа1ае соответствующего переключателя. Щел- 
чок на элементе "переключатель" соответствует событию с11ск, обработка 
которого заключается в вызове функции +ез+. Функция имеет единствен- 
ный Параметр, значение параметра — уа1ае переключателя, которое служит 
для вычисления площади фигуры. 


НТМГ-код приведен в листинге 4.1. 
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ро ро поп ровоопов орет овожко я 


: Листинг 4.1. Вычисление площади и выбранной с помощью переключателя 
фигуры т 


<НТМЬ> 
<НЕАО> | 
<ТТТТЕ>Данные из формы типа "переключатель". Событие С11сКк</ТТТЬЕ> 
<$сг1ре 1апоцаде="Фауа$сг1ре"> 
<!-- // | 
Еопс$1о0оп фе5$% (К) 
{ уаг а= Еогт]1 .аафа.ха]1Тлае 
1ЁЕ (а !="" ) 
Еоги1.хез.уа]1ае= К*МафВ.ром(а,2) 
е15е а1егф ("Введите значение") 
} 
//--> 
</зсг1р> 
</НЕАО> 
<ВОрУ> 
<РОВМ папе="Еотт1 "> 
Введите значение 
<1праЕ Еуре="+ехе" паше="Чака" $з12е=10> 
<Пх> 
Укажите форму <Ьг> 
<1приф куре="каазо" папе="Еу" уа]ае=1 
опС11ск="$е$$ (Еог1 .е1етепе$[1].уа]ае) ">квадрат<Ьг> 
<1праЕ +уре="гаЯ1о" паще="Ёу" уа1]ае=3.14 
опС11ск="$ез% (Еотт1.е1ещепе$ [2] .уа]1ае) ">круг<рг> 
<1праЕ вуре="гаЯ1о" папе="Ёу" уа1ае=0.42 
опС11ск="6е$% (Еогт1 .е1етепе$ [3] .уа1ае) ">треугольник<Вг> 
<1прие фуре="гезее" уа1ае="Отменить"><рг> 
Площадь: <1приё суре="®ехе" паме="гез" $12е=10> 
</ЕОВМ> 
</ВОрУ> 
</НТМГ> 


Перепишем функцию +ез+, осуществляющую доступ к элементам формы 
через свойство-массив е1ептепез. 


ЕопсЕ1оп %е5% (К) 


{ уаг а= аоситепе. Еотт$ [0] .е1емепе$[0].ха]1ае 


1Е (а !="" ) 
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Аосптепе .ЁЕотт$ [0] .е1етепт$ [5].уа1ае= К*Ма®П.ром (а,2) 
е]1з5е а1еге ("Введите значение") 


} 


В следующем примере проверяется правильность обработки данных элемен- 
та управления "переключатель". Объект гад1о имеет свойства паще, $уре, 
уа1ае. Событие госиз возникает, когда элемент формы получает фокус. При 
получении фокуса переключателем в поле для многострочного текста ото- 
бражаются значения свойства для выбранного переключателя. 


Свойства переключателя 


Необходимо написать сценарий, в котором для каждого переключателя вы- 
водятся значения соответствующих ему свойств, как на рис. 4.1. 


Е ‚ Данные из › Формы типа ' “переключатель” Событ... ‚Е Е 


оллбккмииия ЗлчАт лол т О отб 


[ам „Правка "Вид _ Избранное Сервис Справка. 21 


ль лелитоиааролоь оолбдие = п ока 


Выберите форму витража 


еле ле ро кат 


С треугольник 
С круг 


Тест: 


свойство уа1ае: прямоугольник 
свойство папе; Ру 
свойство туре: гаЯ1о 


‚Отменить 


Рис. 4.1. Свойства переключателя 


Группа элементов состоит из четырех переключателей, пятый элемент фор- 
мы — поле ввода многострочного текста. При выполнении сценария фор- 
мируется строка з, содержащая требуемые значения. Фактическим парамет- 
ром функции обработки события +езЕ является элемент формы — перек- 
лючатель, а не значение параметра уа1ае выбранного переключателя, как в 
предыдущем примере. Далее в сценарии для получения свойств переключа- 
теля используются конструкции оь}.уа1ае, ою).паме, оЪ).куре. В этом 
примере в качестве значения параметра та1е в переключателе применяется 
строковый литерал. 
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НТМЕ-код приведен в листинге 4.2. 


‚ Листинг 4.2. Свойства выбранного элемента-переключатля | 
<НТМЬ> 
<НЕАБ> 
<ТТТЬЕ>Данные из формы типа "переключатель". Событие Еоса$</ТТТЬЕ> 
<$зсг1ре 1апдааде="Зауа$сг1ре"> 
<!-- // 
ЕопсЕ1оп {е5®е (057) 


{ уаг з="свойство уа1ае: " + оБ).уа1ае + "\п\г" + 
"свойство папе: " + оЪ).паще + "\п\г" + 
"свойство $уре: " + оБ].куре 


Гогт1.е]\етепе$[4].уа]1е=5 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОрУ> 
<РГОВМ папе="ГЕоги1"> 
Выберите форму витража<пг> 
<1праЕ Еуре="гаЯ1о" паще="Ёу" уа1ае="прямоугольник" 
опРосиз=Еез® (Еогт1 .е1етепез [0]) >прямоугольник<Ьг> 
<1приЕ суре="гаЧ1о" паме="ЁЕу" уа]ае="квадрат" 
опРоси5=$е$® (Ёоги1 .е1ещепе$ [1]) >квадрат<Ьг> 
<1праЕ туре="гаа1о" патме="Ёу" уа]ае="треугольник" 
опГоси$=фе$® (Еотгт1.е1етепф$ [2] ) >треугольник<г> 
<1праЕ вуре="гаЧ1о" папе="Ёу" уа]ае="круг" 
опРГоси$=$е$® (Ёогт1.е1етепе$ [3] ) >круг<Вг> 
Тест: <Бг> 
<сехфсагеа паще="гез" со1$=55 гом5=5></бехбагеа><Ьг> 
<1праЕ Еуре="гезее" уа1ае="Отменить"> 
</ЕОВМ> 
</ВОрУ> 
</НТМТ> 


Объект "переключатель" содержит свойство Еогм, значение которого соот- 
ветствует форме, где расположен переключатель. Это обеспечивает доступ к 
объекту-родителю, а, следовательно, и к его свойствам. 
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Свойства формы 


Напишем сценарий, в котором для каждого переключателя выводятся зна- 
чения соответствующего ему свойства уа1ае, а также свойства паме И 1епаЕВ 
той формы, на которой расположен переключатель. 


Если, как в предыдущем примере, в функцию +ез+ будем передавать в каче- 
стве параметра выбранный элемент. Тогда в сценарии, выполняя конструк- 
ЦИЮ 0Ь3.Еоги, МЫ Получим доступ к форме, на которой расположен эле- 
мент. Чтобы определить имя формы и количество элементов на ней, следует 
обратиться к свойствам оЪ).Еоги.паше И оь7.Еога.1епаЕр. Поле ввода 
многострочного текста в форме является пятым элементом управления, для 
изменения значения уа1ае которого в сценарии можно воспользоваться опе- 
ратором присваивания. 


ор) .Еоги. е1етепЕ$ [4] .уа1ае=$ 


Таким образом, от переключателя перешли к форме, а в форме выбрали нуж- 
ный элемент, используя свойство-массив е1епеп+з. Событие в1ок наступает, 
когда элемент формы теряет фокус. В этом случае переключателем в поле 
ввода многострочного текста помещаются свойства формы, на которой распо- 
ложен переключатель. НТМГ-код со сценарием приведен в листинге 4.3. 


ооо о чо ооо во во оо оо ро ооо соо о ооо саспенс ото сос чо ол о ооо ооо оно чо соо о о соо о ооо ооо рос ово оо соот о чо ооо ооо оо нос ово в оно ооо окос оо соо ва ооо ооо ооо ото вос ооста - 
. . 


Листинг 4.3. Свойства формы, в которой расположен переключатель 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Данные из формы типа "переключатель". Событие В1ах</ТТТЬЕ> 
<$сг1ре 1ападдаде="Зауа$ сгаре"> 
<!-- // 
Еипс®10оп Фе5зе (0571) 
{ уаг з="свойство уа]1ае переключателя: " + об].уа1ае + "\п\г" + 
"свойство паше формы: "+053 . Еог. пате + "\п\ Е" + 
"Число элементов формы: " + оБ}.Еогт. 1епа ЕВ 
оь) .Еогм.е1етепе$ [4] .уа]ае=з 
‚° 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
<ЕОВМ пате="Ёотт1 "> 
Выберите форму витража<Пг> 
<1приЕ суре="гаЧ1о" папе="ЁЕу" уа]ае="прямоугольник" 


опВ1аг="$е$% (Ёоги1.е1етепе$ [0] ) ">прямоугольник<Ьг> 
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<1приЕ фуре="га1о" паме="ЁЕу" уа]1ае="квадрат" 
опВ1оатг="$е$% (Еоги1.е]етепф $ [1]) ">квадрат<Ьт> 

<1прие суре="гаЯ1о" паме="ЁЕу" уа]ае="треугольник" 
опВ1аг="6е$% (Гоут1 .е]1етепе$[2])">треугольник<рг> 

<1прие суре="гаЯ1о" паще="ЁЕу" уа]ае="круг" 
опВ1аг="$е$® (Еотгт1.е1етепе$ [3])">круг<рг> 

Тест: <Ьг> 

<Еехфагеа папе="гез" со1$=45 гомз=5></кехфагеа><рг> 

<1приае суре="гезее" уа1де="Отменить"> 

</ЕОВМ> 
</ВОрУ> 
</НТМТ> 


На рис. 4.2 приведен вид документа, когда третий переключатель формы 
потерял фокус. 


А тетя 


__ Правка _ Ви _ Избранное _ Сервис Справка 


АА и 


Выберите форму витража 


Адалин пролил < ле даллддьл ле КАКАЯ лв № мар лечили = Олл: реле пищ км > кл ЗАМКАМИ чала Ад дли пемзы льда ль прно в мрельь клеммы. 


С прямоугольник 


свойство уа1ие переключателя: треугольник 
свойство патше формы: Ёоги1 
Число элементов формы: 6 


‚ Отменить. 


Рис. 4.2. Свойства формы с переключателем 


Определение выделенного элемента 


Необходимо написать сценарий, в котором определяется выбранный пере- 
ключатель при щелчке мышью по кнопке в форме. 


Свойство срескеа переключателя возвращает логическое значение егое, ес- 
ли тот установлен, и Еа1зе — в противном случае. Выяснить, установлен ли 
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переключатель, являющийся первым элементом формы с именем Еогпл, 
можно по значению следующего выражения: 


(Чосомепе.Еоги1.е]епепе$[0]).спескеа 
= -—.. о 


Приведем программу, которая демонстрирует работу с переключателем 
(листинг 4.4). 


рорроооооооосовово оо ооо осо ооо восовооооторроао зовевото фозоовоос оо росососоооовово поброорпров рр орон 99 оО ро био ооо рос ор рос ооо оо оо то оо оо рос соо рос оо сототоо хоро ооо ооо ово росс оо вос своооотор з 
- к в 


Листинг 4.4. Определение выделенного элемента в переключателе — 


<НТМТ> 
<НЕАО> 
<ТТТЬЕ>Данные из формы типа "переключатель". Выделенный элемент</ТТТЬЕ> 
<$сг1ре 1ападцаде="Зауа5 сг1ре"> 
<!-- // 
Рорсе1оп %14{) 
{ таг а=аосчтеп® 
уаг К=0; 
1Е ((а.Еоги1 .е1етеп*$[0]).свескеад) 
К= (а.Еогт1 .е1ещепе$[0]).уа]ае 
е15е 
1Е ((А.Еоги1 .е1етере$[1]).срескеа) 
К= (а.Еогт1 .е1етепе$[1]).уа]ое 
е]15е | 
1Е ((4.Еотт1 .е1етере$[2]).сВескеа) 
К= (а.Еоги1.е1ептепе$[2]).ха1ае 
е15е 
1Е ((а.Еотт1 .е1ещепе$[3]).свескеа) 
К=(а.Еота1 .е1етепе$ [3]).уа1лае 
_а.Еогт1 .е1етепе$[6].уа]1ще=К 
| } 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
<РОВМ паме="ЁЕотт1"> 
Выберите форму витража<пг> 
<1прас $уре="гаЧ1о" паме="Ёу" уа]ае=1>прямоугольник<г> 
‚ <1прие фуре="гаЯ1о" папе="Ёу" уа1ае=2>квадрат<ртг> 


<1приЕ +уре="гаа1о" паме="Ёу" уа1ае=3З>треугольник<Ьг> 
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<1пруЕ суре="гаЧ1о" паме="ЁЕу" уа]е=4>круг<Вг> 
<1прие суре="раЕфоп" уа1ае="Выполнить" опС11ск="у1а () "> 
<1прие буре="гезее" уа1ае="Отменить"><Вх> 
Тест: <1прие суре="$ехе" паще="гез"> 
</ЕОЕМ> 
</ворУу> 
</НТМЬ> 


В следующем примере продемонстрируем использование параметра 1а для 
анализа данных, задаваемых с помощью переключателя. 


Уникальные имена 


Напишем сценарий, в котором определяется выбранный переключатель при 
щелчке мышью по определяемой в форме кнопке. Доступ к элементу требу- 
ется осуществить, используя уникальные имена (листинг 4.5). 


: Листинг 4.5. Уникальные имена _ . — ОК | 
- <НТМЫ> 
<НЕАО> 
<ТТТЪЕ>Данные, представленные переключателем. Идентификаторы</ТТТЬЕ> 
<5сг1р® 1апоцаде="Фауа$ сг1р®"> 
<!-- // 
ЕапсЕ1оп у14() 


{ таг а=аосотепре 


уаг К=0; 
1Е (4.а11("11") .сресКкеа) к=1 
е15е 
1Е (4.а11("12") .свескеа) К=2 
е1 зе 
1Е (4.а11("13") .спескеа) Кк=3З 
е15е 


1Е (А.а11 ("14") .свескеа) К=4 
Я.а11 ("хезср") .уа1ае=Кк 
} 
//--> 
</зсг1рЕ> 
</НЕАП> 
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<ВОБУ> 
<РГОВМ паце="Ёотги1"> 
Выберите форму витража<рт> 
<1праЕ Еуре="гаЯ1о" пате="ЁЕм" уа1ае=1 149="11">прямоугольник<рг> 
<1праЕ Еуре="гаа1о" папе="ЁЕм" уа1ае=2 14="12">квадрат<рг> 
<1праЕ туре="гаЧ1о" паме="ЁЕи" уа]ае=3 1а="13">треугольник<Ьг> 
<1приЕ суре="гаЧ1о" папте="ЁЕм" уа1]ще=4 1а="14">круг<рг> 
<рг> 
<1праЕ вуре="Боб6оп" уа1]ае="Выполнить" опС]1ск="у1а ()"> 
<1праЕ $уре="гезее" уа]ае="Отменить"><Пг> 
<1приЕ буре="фехе" папе="гез" 14="гезсрв"> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Выбор параметров обтекания 
изображения текстом 


1 
Напишем сценарий, который предоставляет возможность пользователю за- 


давать значения параметров, определяющих, К какому полю окна (левому 
или правому) прижимается изображение, и, соответственно, с какой сторо- 
ны текст его обтекает. Кроме того, требуется предусмотреть возможность 
задания величины отступов по вертикали и горизонтали, отделяющих текст 
от изображения. 


Если значение параметра а119п равно Ъеге, то изображение прижимается к 
левому краю окна просмотра браузера, а текст или другие элементы доку- 
мента “обтекают" изображение с правой стороны. Текст, размещаемый ря- 
дом с изображением, может занимать несколько строк. В примере на 
рис. 4.3 значение параметра а119п задано равным в1чп%, поэтому изображе- 
ние прижато к правому полю окна браузера, а текст обтекает изображение 
слева. Текст занимает несколько строк. Для того чтобы изображение и текст 
не "сливались", можно задать параметры, значения которых определяют ве- 
личину отступа текста от изображения по горизонтали и вертикали. В при- 
веденном примере значения этих величин равны 15 и 10 соответственно. По 
умолчанию значение параметра а11дп равно теЕ+, а значение отступов — 0. 
При нажатии на кнопку Обновить для изображения и текста будут установ- 
лены значения параметров, принимаемых по умолчанию. 


Пример НТМ[Г-кода, который содержит сценарий, обеспечивающий выпол- 
нение действий, задаваемых пользователем, приведен в листинге 4.6. 


5 Зак. 834 
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К шете! Ехрогег 


Изображение и текст. Обтекание и отделение текста от изображения 


Выберите значение параметра выравнивания и введите значения отступов по 
горизонтали и вертикали, нажмите кнопку Просмотр. 


Г (1е25) изображение выравнивается по левому краю 


® (1980) изображение выравнивается по правому краю 
отступ по горизонтали (НЗРАЗЕ): [5 


отступ по вертикали (УЗРАЗЕ): [о 


Иван Иванович Шишкин является одним из основоположников русского 
национального пейзажа. В полотне "Рожь" Шишкин создал образ большой 
эпической силы и подлинно 
монументального звучания. 

Могучая, полная 

богатырских сил природа, 

богатый, привольный край. 

Создавая это произведение, 

Шишкин удачно сочетал в 

нем точность 

характеристики форм 

природы с широкой, 

обобщенной их трактовкой. 

Картины Шишкина покоряют пониманием характера родной природы, своей 
спокойной эпической силой и широким размахом, которые подстать всему 
строю привольного русского пейзажа. (Т. Юрова) 


Рис. 4.3. Обтекание текстом изображения 


<НТМЬ> 
<НЕАО> 


<ТТТЬЕ>Изображение и текст. Обтекание</ТТТЬЕ> 


<5сг1рё> 
<!-- 
РапсЕ1оп сПр1с® (057) 


{ уаг П=оБ).Р5зр.хуа1ае 
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уаг у=ор].уУзр.уа1ае 
Чоситеп® .шур1се.Взрасе=И 
Аоситепе.тур1се.узрасе=у 
1Е ((05).е1емепе$з[0]).свескКеа) 
Чосимеп*.тмур1с®.а11а1т="еЕ т" 
е1 зе 
Чосимеп*.тур1се.а11ап="В1апе" 
} 
Еопсе1оп гзеф(ор)) 
{ аосомепе.мур1с®.а119п="ТеЁф" 
Аосцпеп®.мур1с®.Взрасе=о 
аосимепе .мур1с®.узрасе=о 
оЬ7.Р5р.уа1ае=о 
оЬ).\узр.уа1ае=о 
} 
_//--=> 
</зсг1реЕ> 
</НЕАО> 
<ВОрУ> 
<СЕМТЕВ> 
<Н4>Изображение и текст. 
Обтекание и отделение текста от изображения</Н4> 
</СЕМТЕВ> 
<ЕОВМ паше="Еотта1 "> 
Выберите значение параметра выравнивания 
и введите значения отступов по горизонтали и вертикали, 
нажмите кнопку <В>Просмотр</В>.<рг> 
<РВЕ> 


<1приЕ буре="гаЧ1о" паме="а1д" срескейя уа1ле=14> (1еЕ{) изображение 
выравнивается па левому краю 


<1пруе буре="гаЯ1о" папе="а1д" уа]ае=га> (г1ар®) изображение 
выравнивается по правому краю 


отступ по горизонтали (НЗРАЗЕ): <1приЕ буре="$ехе" паме="В$р" $1хе=8 
уа1це=0> 


отступ по вертикали (УЗРАЗЕ); <1приЕ Еуре="$бехе" паше="узр" 312е=8 
уа1це=0> | 


</РВЕ> 
<1приЕ куре="БаЕеоп" уа]ае= "Просмотр" опс11ск="сЬрас* (Ёогта1) "> 


<1праЕ +уре="гезее" уа]ае="Отменить" опс11ск="г5еф (Ёогт1) "> 
</ЕОВМ> 


119 


120 Часть [. Язык Чауа$спрЕ для начинающих 


<ТАВЬЕ Басо]1ог="ЕВЕВЕЕ"> 
<ТВ><ТО>Иван Иванович Шишкин является одним из основоположников 
русского национального пейзажа. 
<1ТМС згс=р1.7]ра паме=тур1с® а11ап=1еЁе Богаег=3 млаер=310> 
В полотне "Рожь" Шишкин создал образ большой эпической силы 
и подлинно монументального звучания. Могучая, полная 
богатырских сил природа, богатый, привольный край. 
Создавая это произведение, Шишкин удачно сочетал в нем 
точность характеристики форм природы с широкой, обобщенной 
их трактовкой. Картины Шишкина покоряют пониманием 
характера родной природы, своей спокойной эпической силой 
и широким размахом, которые подстать всему строю 
привольного русского пейзажа. (Т. Юрова) 
</ТО></ТВ> | 
</ТАВЬЕ> 
</ВОрУ> 
</НТМт> 


Если изображение рассматривается как элемент строки, то значения парамет- 
ров выравнивания задают расположение изображения относительно строки 
текста. Верхняя граница изображения может быть выровнена либо по самому 
высокому текстовому элементу текущей строки, либо по самому высокому 
элементу в строке (например, другому изображению). Базовой считается ниж- 
няя часть линии текста, которая проводится без учета нижней части некото- 
рых символов. Середину изображения можно выровнять либо по базовой ли- 
нии, либо по середине текущей строки. Нижнюю часть изображения можно 
выровнять по базовой линии, либо по нижней границе текущей строки. 


Размещение изображения 
относительно строки 


Напишем сценарий, позволяющий по значению параметра выравнивания 
изображения а11ап определить те действия, которые будут выполняться при 
заданном значении. 


Параметр а11ап в рассматриваемом случае может принимать одно из шести 
значений, которые задаются переключателем. На рис. 4.4 приведен доку- 
мент в случае, когда выбрано значение параметра а11дп равное ТЕХТТОР. 


При задании пользователем значения параметра выравнивания выбранный 
элемент получает фокус, и как реакция на это событие, выполняется функ- 
ЦИЯ зе+. В ФункЦИИ зеф с параметром оъз анализируется значение 
оЬ).уа1ае, и переменной з присваивается соответствующее значение. 
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нете Ехр]огег 


Расположение изображения относительно строки 


| Выберите значение параметра, который Вас интересует 


Значения параметра Действия при выбранном значении 
выравнивания абеп | параметра 


Верхняя граница изображения 
' |выравнивается по самому 
|С АВЗМООТЕ ' |высокому текстовому элементу 
‚ С ВОТГОМ или ВАЗЕММЕ  Г“бКУМе" Строки 
: С АВЗВОТТОМ 


_ Обновить _ 


Рис. 4.4. Параметры горизонтального выравнивания 


НТМГ-код, содержащий сценарий, обеспечивающий описание действий в 
зависимости от значения параметра, приведен в листинге 4.7. 


Листинг 4.7. Расположение изображения относительно строки. 


<НТМГ> 
<НЕАО> 
<ТТТТЕ>Расположение изображения относительно строки</ТТТЬЕ> 
<$сг1ре> 
<!-- 
уаг з1="Верхняя граница изображения выравнивается " + 
"по самому высокому элементу текущей строки" 
уаг з2="Верхняя граница изображения выравнивается " + 
"по самому высокому текстовому элементу текущей строки" 
уаг $3="Выравнивание середины изображения "+ 
"по базовой линии текущей строки" 
уаг 54="Выравнивание середины изображения " + 
"по середине текущей строки" 
уаг з5="Выравнивание нижней границы изображения по базовой линии "+ 
"текущей строки" 
уаг 56="Выравнивание нижней границы изображения " + 


"по нижней границе текущей строки" 
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уаг $="" 


. 


Еопс®1оп зе*(оЪ)) 
{ зм1Еср (№олфег (о) .уа1ое)) 


{ сазе 0: 3=51; Бгеак; 
сазе 1: $=5$2; ЬгеаК; 
сазе 2: $=$3; ргеаКкК; 
сазе 3: 3=$4; ргеак; 
сазе 4: $=55; ргеаК; 
сазе 5: $=$6; Бгеак; 


} 
ОБ) .Еоги.е1етепе$ [6] .уа1е=з 
//--> 
</зсг1р+*> 
</НЕАР> 
<ВООУ Басо1ог="ЕВЕЗЕЕ"> 
<НЗ а]11ап=сепеег>Расположение изображения относительно строки</НЗ> 
Выберите значение параметра, который Вас интересует 
<ТАВЬЕ Богаег=2> 
<ТВ><ТО а119п=сепфег><Н4>Значения параметра выравнивания а119п</Н4> 
<ТО а119п=сепфег><Н4>Действия при выбранном значении 
параметра</Н4></ТВ> 
<ТВ><ТО> 
<РГОВМ папе="ЁЕогт1"> 
<1прие $уре="гаЯ1о" папе="1п" уа]ае=0 сВескеа 
опРоси5="5еф (Ёогт1 .е1етепе$ [0] ) ">ТОР<рЬг> 
<1приЕ $уре="гаЯ1о" папе="]п" уа1ае=1 
опРГосоа$="5еф (ЁЕоги1.е1етепт$ [1] ) ">ТЕХТТОР<Ьг> 
<1праё суре="гаЯ1о" паме="1п" уа1ае=2 
опРоси$="$еф (Ёотт1 .е]1етере$[2]) ">МТОБЬЕ<Ьг> 
<1праЕ фуре="гаЧ1о" паще="1п" уа1]ае=З 
опРоси5="зеф (Еоги1 .е]етепе$ [3] ) ">АВЗМТООЬЕ<Ьтг> 
<1приЕ +уре="гаЧ1о" папе="]п" уа1ае=4 
опЕоси$="5е® (Гогт1.е1етепф$ [4] ) ">ВОТТОМ или ВАЗЕШГТМЕ<ЬЕ> 
<1праЕ Еуре="гаЯ1о" папе="1п" уа1ае=5 
опРосиз="$5еф (Ёогт1 .е1етепез [5] } ">АВЗВОТТОМ<Ьт> 
<ЕОЁКМ папе="Ёогт1"> 
</тТр> 
<ТР а119п=сепеехг> <вехфагеа папе="гез" со1$=30 хгомз=4> 
Верхняя граница изображения выравнивается по самому высокому 


элементу текущей строки </$ехфагеа><Ьу></ТрО></ТВ> 
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</ТАВЬЕ> 
<Р> 
<1праЕ Еуре="гезее" уа1ае="Обновить"> 
</ВОрУ> 
</НТМЬ> 


В следующем примере предлагается написать сценарий, который демонст- 
рирует, как будет изменяться документ при выборе различных параметров 
выравнивания изображения. 


Изображение как часть строки 


Напишем сценарий, который позволяет продемонстрировать, как изменяет- 
ся текущая строка в зависимости от значения параметра выравнивания изо- 
бражения, рассматриваемого как элемент строки. 


|129 Расположение изображения относительно строки Место 
Е ин не НБ и 


|} | Фа | Правка ‚Вид _Избранное Сервис _ Справка о м 


Ё——м————————м—щ 94 ИЕН ел вона ася деж. а: 


Расположение изображения относительно строки 


Выберите значение параметра и нажмите кнопку Просмотр. 


Значения п параметра выравнивания аНел 


| 


| С ТЕХТГОР 
‚© МОЕ 

| С АВМТООТЕ 
| С ВОТГОМ или ВАЗЕЙМЕ 
| С АВ5ВОТТОМ 

| 


р 


^ Обновить. 


Шараметры выравнивания 


‘расположение изображения относительно строки текста. В 
‘этом случае изображение является обычным элементом 
строки. 


ры речи, Ч ОЕ Вов куни олд, уче, 


Рис. 4.5. Расположение изображения относительно строки 
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Документ состоит из двух частей. В верхней части перечислены возможные 
значения параметра выравнивания изображения, рассматриваемого как эле- 
мент строки. В нижней части документа располагаются текст и изображе- 
ние, к которому применяются выбранные действия при нажатии кнопки 
Просмотр. Рис. 4.5 соответствует ситуации, при которой происходит вырав- 
нивание середины изображения по базовой линии текущей строки. 


Документ, содержащий НТМГ-код для решения задачи, представлен в лис- 
тинге 4.8. 


, Листинг 4.8. Изображение как часть строки, Параметры выравнивания | 
<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Расположение изображения относительно строки</ТТТЬЕ> 
<$сг1р®> 
<!-- 
ЕорсЕ1оп зе% (057) 
{ 1Е(06) .е1емепе$[0].спескеа) аосомепе.тур1с®е.а1191т="ТОР" 
е1 зе 
1ЁЕ (о) .е1емерез[1].срескеа) аосцтеп*.мур1с®.а1191п="ТЕХТТОР" 
е15е 
1Ё (о57) .е1етепе$[2].свескеяа) аосимеп*.тур1с®.а119п="МТОРЬЕ" 
е15е | 
1Е (о) .е1етепе$ [3] .срескКеа) 
Чосипепте.тщур1с®.а119п="АВЗМТОРЬЕ" 
е]15е 
1Е (о) .е1етерпе5 [4] .спескКея) 
Аосцмеп*.тур1с®.а1191п="ВОТТОМ" 
е15е 
11 (063 .е1ещере$ [5]. сВескеа) 
Аосищеп* .тур1с®.а11ап= "АВЗВОТТОМ" 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ расо1огх="ЕВЕВЕЕ"> 
<СЕМТЕВ> 


<НЗ а11ап=сепбег>Расположение изображения относительно строки</НЗ> 


Глава 4. Переключатели | _ 125 


Выберите значение параметра и нажмите кнопку <В>Просмотр</В>. 
<ТАВЬЕ рогаег=2> 
<ТВ> , 
<ТО><Н4>Значения параметра выравнивания а11ап</Н4> 
</ТВ> 
<ТВ><То> 
<ГОВКМ паме="{огт1"> 
<1праЕ суре="гаЯ1о" паще="]" уа1ае="$ор" сБескеа>ТтТоР<Ьг> 
<1приЕ суре="гаЯ1о" патме="1т" уа]ще="5ехЕбор">ТЕХТТОР<Ьг> 
<1пру& Еуре="хгаЯ1о" паще="1т" уа1ае="п1аа1е">МТООЬЕ<Бт> 
<1праф& «уре="га1о" паще="1щ" уа1ае="аЪ$п1а99]е">АВЗМТООЬЕ<Ьтг> 
<1праЕ Еуре="гаА1о" папе="1щ" уа]ае="Бо&$оп"> 
ВОТТОМ или ВАЗЕШБТМЕ <ру> 
<1приЕ фсуре="гаа1о" папе="1щ" уа1ие="абзБооп">АВЗВОТТОМ<Ьт> 
</ЕОВМ> 
</ТО></ТВ> 
</ТАВЬЕ><рг> 
<1приЕ фуре="Баееоп" уа]ае= "Просмотр" опс11скК="зеф (Ёог1) "> 
<1прие $уре="гезее" уа1ае="Обновить"><Р> 
</СЕМТЕВ> 
<ТАВЬЕ рогаег=2 Басо]ог="#ЕЕОСОС"> 
<ТВ><ТО>Параметры выравнивания <1МС згс="р511.)рач" патме="тур1с®е" 
а11ап=ТОР> 
задают расположение изображения относительно строки текста. 


В этом случае изображение является обычным элементом 


строки. 
</ТО></ТВ></ТАВЬЕ> 
</вору> 
</НТМТ> 


Во многих случаях данные удобно представить в виде таблицы. Поскольку 
таблица содержит ячейки, то для каждой из ячеек можно определить, как 
разместить в ней данные. Горизонтальное выравнивание позволяет содер- 
жимое ячейки расположить по центру, левому или правому краю. Кроме 
того, текст или графику внутри ячейки можно разместить, определив пара- 
метры вертикального выравнивания. 
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Расположение текста и изображения 
в ячейке таблицы 


Напишем сценарий, который позволяет продемонстрировать, как изменяет- 
ся содержимое ячейки таблицы в зависимости от значений параметров го- 
ризонтального и вертикального выравнивания. 


В документе слева находится список параметров, которые пользователь вы- 
бирает для горизонтального и вертикального выравнивания. В правой части 
в ячейке таблицы хранится изображение, положение которого будет менять- 
ся в зависимости от выбранных переключателей после нажатия кнопки 
Просмотр (рис. 4.6). 


Расположение текста или изображения внутри ячейки 


Выберите значения параметров, которые Вас интересуют, и нажмите 
кнопку Просмотр. 


Значения параметров Действия при выбранных 
выравнивания таблицы | значениях параметров 


= 
р 
: 
| 
| 
| 


я аа саме м 


Горизонтальное выравкивание ! 
‚Г ТЕЕТ 

‚© СЕМТЕВ 

(С ОНТ 

| 

Вертикальное выравнивание 

С ТОР 

© МОРГЕ 

‚С ВОТГОМ 


Рис. 4.6. Расположение изображения внутри ячейки 


После нажатия кнопки Просмотр выполняется функция, анализирующая, 
какие параметры выбраны, и присваивает определенные значения атрибутам 
выравнивания содержимого ячейки. В правой части документа изображение 
занимает определенное параметрами выравнивания место в ячейке таблицы. 
Доступ к ячейке таблицы осуществляется по значению параметра 1а. При 
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нажатии кнопки Обновить изображение требуется вернуть на место. По 
умолчанию горизонтальное выравнивание предполагает расположение со- 
держимого по левому краю, вертикальное выравнивание — по верхней гра- 
нице. НТМГ-код, содержащий сценарии, представлен в листинге 4.9. 


Фо ооо ооо ооо ооо ооо ооо ооо ово соо ооо соо ооо ая осо соси соо оао со нос о соо со ооо ооо ово о соо ооо я соо ооо осо соо со ово ооо осо соо соо ооо осо ва о соо осоосоа осо овос ооо вос ооо сос сооосовоо осо осоесооее - 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Расположение текста или изображения 
внутри ячейки таблицы</ТТТЬЕ> 
<$сг1ре> 
<!-- 
Еопс®1оп зе*(оЪ]) 
{ хаг а=аосчмепрЕ 
1Е (05) .е1емеп*$[0].срескеа) {а.а11 ("16а") .а11ап="ЪЕЕТ" } 
е15е 
1Е (ор) .е1етепе$[1].срескеа) {4.а11("1еаЪ") .а11ап="МТОБЬЕ" } 
е15е 
1Е (057) .е1етепе$[2].срескеа) {а.а11 ("1+аЪ") .а11ап="ВТСНТ" } 
1Е (053 .е1етепе$ [3] .спескеа) {4а.а11("1$аЪ") .уА11ап="ТОР" } 
е] зе 
1Е (ор) .е1етепез[4].снескеа) {а.а11("1$аь") .уА11ап="МтТрООГЕ" } 
е15е 
1Е (057 .е1етепе$[5].спесКеа) {4а.а11 ("1$аЪ") .уА11апт="ВОТТОМ" } 
} 
Еорс®1оп гзеф(оЬ]) 
{ уаг а=аосптепте 
Я.а11 ("1$ аб") .а119п="ЪЕЕТ" 
Ч.а11 ("1$аЪ") .УА11ап="ТОР" 
} 
//--> 
</зсг1рЕ> 
<ВООУ Бдсо1ог="ЕВЕЗЕЕ"> 
<НЗ а11дп=сепег>Расположение текста или изображения 
внутри ячейки</НЗ> 
Выберите значения параметров, которые Вас интересуют, 
и нажмите кнопку <В>Просмотр</В>. 
<ТАВЬЕ Богаетх=2> 
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<ТВ> 
<ТР ><Н4 а119п=сеп$ег>Значения параметров выравнивания 
таблицы</Н4> 
<Тр><Н4 а119п=сепеег>Действия при выбранных значениях 
параметров</Н4> 
</ТВ> 
<ТВ> 
<ТрО> 
<РГОВМ паце="ЁЕотги1"> 
Горизонтальное выравнивание<рг> 
<1прие суре="гаЧ1о" папще="а1" уа]ае=0 срескеа>ЪЕЕТ<рг> 
<1праЕ Еуре="гаа1о" паме="а]1" уа1ае=1>СЕМТЕВ<г> 
<1прае суре="гаЯ1о" папще="а1" уа]1пае=2>ВТСНТ<Р> 
Вертикальное выравнивание<Ьг> 
<1праЕ $уре="гаЯ1о" паме="\у1" уа1ае=3 срескеа>ТтоР<Ьг> 
<1прие $буре="гаЧ1о" паще="\у1" уа1пе=4>МТООЬЕ<рг> 
<1приЕ буре="гаЯ1о" паме="у1" уа]де=5>ВОТТОМ<рг> 
</ЕОВМ> 
</То> 
<ТЬ 1а="1$аь" Ьд9со1огх=р1ае расКагоипа="Ё1гег1п9.)рд" Ве1айе=160 
\уа11а9п=ТОР а11ап=ЬЕЕТ> 
<1Мб згс="6гКгап1и.а1Е" рогаег=2 Везаре=120> 
</ТО> 
</ТВ> 
</ТАВЬЕ><Р> 
<1прае буре="Бабеоп" уа1ае= "Просмотр" опс11ск="5еф (Ёотт1) "> 
<1пра$ +уре="гезее" уа1ае="Обновить" опс11ск="гзеф ()"> 
</ВОрУ> 
</НТМГ> 


Таблицы в НТМГ используются не только для представления табличных 
данных, но и как средство размещения на странице различных текстовых и 
графических объектов. Можно задать цвет фона таблицы или фоновое изо- 
бражение, отличное от цвета фона или фонового изображения всего доку- 
мента. Рамку с тенью можно указать, варьируя толщину рамки таблицы. 
Интересные эффекты получаются, если в таблицу поместить изображение, а 
затем подбирать для нее цвет фона. При выборе фона изображение каждый 
раз будет в разном обрамлении. . 
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Фоновое изображение таблицы 


Необходимо написать сценарий, который позволяет выбрать фоновое изо- 
бражение для таблицы, содержащей рисунок. Требуется предусмотреть воз- 
можность изменения толщины рамки таблицы для того, чтобы создать эф- 
фект выпуклости изображения. 


Варианты для выбора фонового изображения расположим в документе сле- 
ва, а справа поместим таблицу, для которой определяется фон, и которая 
содержит изображение (рис. 4.7). 


Таблицы, графика, фон 


Толщина рамки Г 5 


Выберите фон для таблицы 


Г. 
т 
р; 
Н. 

Г 
} ; 


Рис. 4.7. Выбор фона таблицы и толщины рамки 


Атрибут СЕБЬЗРАСТМС назначает ширину промежутка между ячейками. 
В рассматриваемом примере чем больше значение этого параметра, тем ши- 
ре рамка вокруг изображения. Задание фонового изображения для таблицы 
определяет цвет рамки вокруг изображения. Имена графических файлов, 
используемых в качестве фонового изображения: Ююп1.211, Юп2.21, ..., Юп8.211. 
Все графические файлы содержатся в текущей папке. 


НТМЕ-код приведен в листинге 4.10. 


Листинг 4. 10. Выбор фонового изображения для таблицы и ' задание. | 
г толщины рамки 


<НТМГЕ> 
<НЕАБ> 
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<ТТТЬЕ>Таблицы, графика, фон</ТТТЬЕ> 
<$сг1рЕ> 
<!-- 
ЕорсЕ1оп дах (м) 
{ аосомепе.а11 ("ваЪ") .БасКагоспа="Еоп"+т+".а91Е" } 
Еопс&1оп зе* (07) 

{ 1Е (оЪ).Бог.хафае != "") 

Аосомепе .а11 ("БаЪ") .Богаег=ор].Бог.уа1ае} 
Еапс®1оп гзеф() 

{ аосчмепе.а11 ("баф") .Баскагочпа="Еоп4 .а1Е" 
Чосммепе.а11 ("+аф") .Богдег=15 | 
Еогта1.рог.уа1чае=15 

} 

//--> 
</5сг1р*> 
</НЕАО> 
<ВООУ Баскагоипа="Еоп1.41Е" Бдсо1ог=агееп> 
<НЗ а11дп=сепёег>Таблицы, графика, фон</НЗ> 
<ТАВТГЕ Рогаег=1 а11ап=сепфег> 
<ТВ><тТо> 
<РГОВМ паще="ЁЕоут1"> 
Толщина рамки <1прие $уре="®ехе" $1хе=8 паме=рог 
уа]це=15 опСпападе="5еф (Ёоги1) "><Бт> 
Выберите фон для таблицы<рг> 
<ТАВЬЕ Богаег=2 а11ап=сеп®ег> 
<ТВ> 
<ТО а11ап=сепеег><1Мб згс="ЁЕоп1.91Е" 
им1АвВ=20 пе1авЕ=50></ТО> 
<ТО а11ап=сепёег><1МбС згс="Еоп2.91Е" 
и1АЕВ=20 пе1ай+=50> </тр> 
<ТО а119п=сепег><ТМС згс="ЁЕоп3.91Е" 
и1АеВ=20 резаве=50></тро> 
<ТО а11ап=сепеег><1Мбс згс="Ёоп4.91Е" 
итАер=20 ВелавЕ=50></ТО> 
<ТО а11ап=сепеег><1Мс згс="ЁЕоп5.91Е" 
и1АЕр=20 Везаве=50></ТО> 
<ТЬ а119п=сепфег><ТМСс згс="Еопб.д91Е" 
и1АеР=20 ВезайЕ=50></ТО> 
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<ТО а11ап=сепег><1Мб згс="Еоп7 .91Ё" 
и1АеВ=20 везареЕ=50></ТО> 
<ТР а11ап=сепеехг><1Мбс згс="ЁЕоп8.91Е" 
и1АеВ=20 ВезаьЕ=50></Тр> 
</ТВ> | 
<ТВ> 
<ТБ а119п=сепеег><1праё туре="гаЯ1о" паще="ор" уа1ае=1 . 
опЕоси$="аг (1) "></ТО> 
<ТО а119п=сепфех><1прае Еуре="гаЯ1о" пате="ор" уа1ае=2 
опЕосиз="аг (2) "></ТО> 
<ТО а119п=сепЕег><1проё буре="га1о" пате="ор" уа]ще=3 
опЕосц5="ах (3) "></ТО> 
<ТО а119п=сепег><1праф куре="гаЯ1о" папме="ор" уа1ае=4 
опЕосиз="ат (4) "></ТО> 
<ТР а11ап=сепкехг><1праЕ +уре="гаЯа1о" папе="ор" уа]щае=5 
опЕосаз="ат (5) "></ТО> 
<ТО а119п=сепЕег><1приЕ фуре="гаЯ1о" паме="ор" уа]ле=б 
опЕоси$="аг (6) "></ТО> 
<ТО а119п=сепёег><1праЕ фуре="гаЯ1о" паме="ор" уа1ае=7 
опЕос15="ах (7) "></ТО> 
<ТР а11ап=сепеег><1прое Еуре="гаа1о" папе="ор" уа1ае=8 
опЕоси$="ах (8) "></ТБ> 
</ТВ> 
</ТАВЬЕ> 
</ЕГОВМ><Ьг> 
<СЕМТЕВ> 
<1праЕ буре="гезее" уа1ае="Обновить " опС11сКк="гзеф ()"> 
</ТО> 
<ТР а119п=сепеег > 
<ТАВЬЕ 149="$аЪ" рог4ег=15 се115рас1п9=30 се1]раЯЯ1па=10 
ре19{=160 Бдсо1ог=дгееп а119п=сепфег> 
<ТВ><ТРр Ьдсо1ог=$11уехг><1Мбс згс="ЪЕ]у.91Е" а1{="Поздравление" 
а11ап=сепфег></ТО></ТВ> 
</ТАВЬЕ> 
</ТО></ТВ> 
</ТАВЬЕ> 
</вору> 
</НТМЬ> 
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Фоновое изображение документа, 
таблицы и ячейки таблицы 


Напишем сценарий, который позволяет задать фоновое изображение для 
документа, таблицы и ячеек таблицы. Сначала пользователь с помошью 
кнопки-переключателя выбирает часть документа, чье фоновое изображение 
он хочет изменить, а затем указывает фон. 


Как и в предыдущем случае, фоновое изображение задается с помощью 
кнопок-переключателей. В верхней части документа располагается таблица, 
состоящая из строки из трех ячеек. В каждую из ячеек помещено одно и то 
же изображение, размеры которого различны. Далее располагается таблица, 
в которой задаются параметры с помощью переключателей. Если выбрана 
ячейка таблицы, то фоновое изображение назначается всем ячейкам. На 
рис. 4.8 заданы фоновые изображения для всех элементов документа. 


Введите значение толщины рамки (ВОКПЕК) Г 
Для изменения фонового изображения выберите, в какой части 
документа хотите его изменить, Выберите фон 


‚ Отменить: ^ 


Рис. 4.8. Фон для документа, таблицы и ячейки 
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Доступ к документу, таблице и ячейкам таблицы осуществляется с помощью 
параметра 1а. При попадании фокуса на переключатель функции обработки 
события передается параметр, который используется при формировании 
имени графического файла, соответствующего выбранной кнопке. Если 
имена графических файлов не удовлетворяют описанному условию, то сце- 
нарий несколько усложнится. Задавать фоновое изображение отдельным 
частям документа можно в произвольном порядке. На рис. 4.8 приведена 
таблица, толщина рамки которой равна нулю. Приведем НТМЕ -код доку- 
мента, изображенного на рисунке (листинг 4.11). 


| Листинг 4. 11. Фоновое. ‘изображение документа, ‘таблицы, ячейки. 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Фоновое изображение документа, таблицы, ячейки</ТТТЬЕ> 
<$сг1рЕ> 
<!-- 
ЕаопсЕ10п г (1) 
{ таг 9=досишепе 
1Е (а.Еоти1.Бог.уха1ае !="") 
{ Ч.а11 ("16аЪ") .Богаег=Мапоег (а. Еотт1.Бог.уа1ае)} } 
1Е (а.Еогт]1 .е]ещере$[1].сВесКеа) 
{ а.а11 ("аос") .БаскКагоцпа="Еоп" +1+".91Е" } 
е]5е 
1Е (а.Еоги1.е1етепе$ [2] .сВескКеа) 
{ Я.а11 ("16а") .Баскагочпа="Еоп" +1+".а1Е" } 
е1зе 
1Е (а.Еогт1.е1етепез [3] .спескеа) 
{ Я.а11 ("1$аб1") .‚Баскагочпа="Еоп" +1+".91Е" 
Ч.а11 ("1$аб2") .БаскКагочпа="Еоп" +1+".491Е" 
Ч.а11 ("15 аЬ3") „Баскагоипа="Роп" +1+".а1Е" 


} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ 14="аос"> 
<Н4 а11дп=сепеег>Фоновое изображение документа, таблицы, ячейки</Н4> 
<ТАВЬЕ 14="16аб" Богаег=1 се115$рас1пд=20 
се1]раЯа1па =10 а11ап=сепфег> 


134 Часть [. Язык Чауа$спрЕ для начинающих 


<ТВ><ТР 14="1$аб1" Басо1ог=$11уег><1МС згс="р1.91Ё" имлАЕр=30></ТО> 
<ТО 1494="1$аб2" радсо1ог=з1]уег><1МС згс="р1.491Ё" и1АЕР=50></ТО> 
<ТР 194="1$абЗ" расо1ог=$11уег><1Мб згс="р1.91Ё" и1АЕр=100></Тр> 
</ТВ> 
</ТАВЦЕ> | 
<РОВМ паще="Еоги1 "><СЕМТЕВ> 
Введите значение толщины рамки (ВОВПЕВ) 
<1праЕ буре="$ехЕ" $з12е=8 паме=рог | 
опСрапае='Чосимеп® .а11 ("1$ъаЪ") .Богаег=1* (Чоситепе. Еоги1 .Бог.уа]1ще) '><рт> 
Для изменения фонового изображения выберите, в какой части 
документа хотите его изменить, выберите фон<рг> 
<ТАВЬЕ Богаег=2 а11ап=сепфег> 
<ТВ><ТО со15рап=8> 
<1пруЕ $уре="гаЯ1о" паще= "Ёр" уа1ае="аос"> документ 
<1праЕ $уре="гаа1о" патме= "Ёр" уа1ае="+аЪ">таблица 
<1приЕ +суре="гаЯ1о" паше= "Ёр" уа1ае="с®">ячейка 
</ТО></ТВ> 
<ТВ> 
<ТР а11ап=сепеег><1МбС згс="ЁЕоп1.91Ё" м1АЕВ=20 Бе1аВе=50></ТрЬ> 
<ТО а11ап=сепфех’><1Мб згс="ЁЕоп2.91Ё" м1абн=20 ре1авЕ=50></ТО> 
<ТО а11ап=сепфехг><1Мс згс="ЁЕоп3.491Е" м1АВ=20 Везде =50></ТрО> 
<ТО а11дп=сепбег><1Мб згс="Ёоп4.91Ё" и1АЕр=20 релзане=50></ТО> 
<ТО а11ап=сепсег><1МС згс="ЁЕоп5.491Ё" м1Ар=20 резаве=50></ТО> 
<ТР а119п=сепЕег><1МбС згс="ЁЕопб.91Ё" и1лаер=20 ве1авЕ=50></ТЬ> 
<ТО а119п=сепег><1Мс згс="Еоп7.91Е" м1АЕВ=20 БелавЕ=50></ТО> 
<ТО а119п=сепеег><]Мб згс="Еоп8.41Е" м1аен=20 Вела Е=50></ТО> 
</ТВ> 
<ТВ><ТО а119п=сепфег> | 
<1прие фуре="гаа1о" паще="ор" уа1це=1 опЁосаз="акг (1) "></ТО> 
<ТЬ а11дп=сепеег> 
<1праЕ Еуре="гаЯ1о" паме="ор" уа]ае=2 опЕосцз="ахг (2) "></ТО> 
<ТО а11ап=сепег> 
<1прае Еуре="гаа1о" паще="ор" уа]ае=3 опЁосаз="аг (3) "></ТЬ> 
<ТР а11дп=сепеег> 
<1прие $уре="гаЯ1о" паме="ор" уа]ае=4 опЁосиз="аг (4) "></ТО> 
<ТР а119п=сеп*ег> 
<1прие фуре="гаЧ1о" паме="ор" уа]ае=5 опЁоса$="аг (5) "></ТО> 
<ТР а119п=сепЕег> | 
<1прае суре="гаЧ1о" паше="ор" уа]1ае=б опЁРосаз="оаг (6) "></ТО> 
<ТР а11ачп=сепЕег> 
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<1приё буре="га41о" паше="ор" уа]ае=7 опЁЕосаз="аг (7) "></ТЬ> 
<ТР а]11ап=сепфехг> 
<1прае суре="гаазо" паше="ор" уа1ае=8 опЕосц$="аг (8) "></ТО> 
</ТВ> 
</ТАВЬЕ><Ьг> 
<1приЕ суре="гезее" уа1ае=Отменить> 
</ЕОВМ> 
</ВОРУ> 
</НТМГ> 


Упражнения 


+1. Напишите сценарий, который позволяет продемонстрировать изменения 
размеров и положения на странице горизонтальной линии так, как пока- 
зано на рис. 4.9. 


Е] Горизонтальные линии - МисгозоН цегле! Ехрогег 


| ам Правка”. Ви _Иобранное ` Сервис . Справка. — си 27. а 


не ал мм тия лАхеиия иж пои ада тире пили еж мы 


Горизонтальная линия и ее свойства 


Выберите значение параметров, которые требуется изменить, 
и нажмите кнопку Просмотр 


Значение параметра выравнивания 


ЬЕРТ 
СЕМТЕВ 
ВТСНТ 


Толщина линии (317е) 
Длина линии (ч1аср) 


Просмотр. | . Обновить ^ 


Рис. 4.9. Исследование свойств горизонтальной линии 


2. Разработайте анкету, определяющую характер человека. Пользователю 
предлагается ответить "да" или "нет" на следующие вопросы. 


е Считаете ли Вы, что у многих ваших знакомых хороший характер? 
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е Раздражают ли Вас мелкие повседневные обязанности? 

» Верите ли Вы, что ваши друзья преданы Вам? 

е Неприятно ли Вам, когда незнакомый человек делает Вам замечание? 
е Способны ли Вы ударить собаку или кошку? 

е Часто ли Вы принимаете лекарства? 

» Часто ли Вы меняете магазин, в который ходите за продуктами? 

» Продолжаете ли Вы отстаивать свою точку зрения, поняв, что ошиблись? 
е Тяготят ли Вас общественные обязанности? 

® Способны ли Вы ждать более 5 минут, не проявляя беспокойства? 

» Часто ли Вам приходят в голову мысли о Вашей невезучести? 

»е Сохранилась ли у Вас фигура по сравнению с прошлым? 

е Можете ли Вы с улыбкой воспринимать подтрунивание друзей? 

е Нравится ли Вам семейная жизнь? 

е Злопамятны ли Вы? 

» Находите ли Вы, что стоит погода, типичная для данного времени года? 
» Случается ли Вам с утра быть в плохом настроении? 

е Раздражает ли Вас современная живопись? 

»е Надоедает ли Вам присутствие чужих детей в доме более одного часа? 


Поставьте плюс, если вы ответили "да" в вопросах с номерами 3, 9, 10, 
13, 14, 19 и "нет" в вопросах с номерами 1, 2, 4, 5, 7, 8, 11, 12, 14, 16, 17, 
18. Посчитайте сумму набранных очков. Если она оказалась более 15, то 
у вас покладистый характер; если сумма в интервале от 8 до 15, то вы не 
лишены недостатков, но с вами можно ладить; если сумма менее 8 очков, 
то вашим друзьям можно посочувствовать. 


Напишите сценарий обработки теста. Ответ на каждый из вопросов пред- 
ставьте с помощью переключателя. Для каждого из трех возможных резуль- 
татов предусмотрите вывод соответствующего результату изображения. 


3. Разработайте анкету, в которой для пяти преподавателей оценивается ка- 
чество преподавания по критериям, приведенным в таблице на рис. 4.10. 
Каждый из критериев оценивается по пятибалльной системе. Требуется 
написать сценарий, определяющий для каждого преподавателя набран- 
ную сумму баллов. Полученные результаты оформить в виде диаграммы. 
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2. Анкета‘ ' Преподаватель глазами , ученика" - МистозоЙ реле! Ехротег 


Файл. Правка’ Ва Избранное _ г - Сервис | Справка _ а 


и в. 


ИИ: 


ак аа Ади. 


Показате ель 


Соответствие учебной программе | Ст 2 = 


ем мух ИСИ а я мил о А а минах 


"Учет специфики аудитории (С 1 С 2 


 Доказательность и доступность и изложения. С 1 С 2 | : 


'Использование эффективных методов 


с 
‘обучения 


Рис. 4.10. Показатели качества преподавания 


4. Разработайте анкету для анализа ответов на вопросы по теме "Графи- 
ческий редактор: назначение и применение". Для заданных в анкете во- 
просов пользователь должен выбрать один из правильных ответов. Отве- 
ты должны быть представлены с помощью переключателей. Напишите 
сценарий обработки результатов опроса. 


Выберите один правильный ответ из данных. 


» Графика с представлением изображения в виде совокупности отрезков 
прямых называется... 


% Фрактальной 
$ Векторной 

‚9 Прямолинейной 
$ Растровой 


е Разрешающая способность экрана в текстовом режиме определяется 
количеством... 


Байтов на символ 
Символов в строке экрана 
Пикселов по горизонтали и вертикали 


Строк и столбцов на экране 


$ < <<< < 


Строк на экране 


® При работе дисплея в текстовом режиме одну позицию экрана зани- 
мает... 


$ Один пиксел 


$ Один символ 
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$ Одно слово 
Ф Часть символа 
$ Восемь пикселов 
» Информация о графическом изображении в видеопамяти формируется... 
Графическим процессором 
Центральным процессором 
Графическим адаптером 
Дисплейным процессором 


ё < < < < 


Дисплеем 


е Разрешающая способность экрана в графическом режиме определяет- 
ся количеством... 


$ Строк на экране и количеством символов в строке 
$ Пикселов по вертикали 
$ Объемом видеопамяти на пиксел 
$ Пикселов на единицу длины 
е Пиктограмма — это... 
Точка на графическом экране 
Рисунок на рабочем поле графического редактора 
Файл, в котором сохранено графическое изображение 
Текстовая информация в рабочем поле графического редактора 


> © < < < 


Условный рисунок, элемент меню графического редактора 


е Цвет точки на экране цветного монитора формируется из сигналов 
основных цветов: 


$ Красного, синего, зеленого 
Ф Белого и черного 
$ Красного, синего, зеленого, коричневого 
$ Белого, черного и яркости 
е Разрешающая способность — это... 
$ Число точек экрана 
Количество пикселов на один квадратный дюйм 
Число точек на единицу длины 
Ступенчатый: характер изображения 


> © < 


Ничто из перечисленного выше не верно 
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® Минимальным объектом, используемым в векторном графическом ре- 
дакторе, является... 


$ Точка экрана (пиксел) 

$ Объект (прямоугольник, круг и т. д.) 
$ Палитра цветов 

Ф Знакоместо (символ) 


е Минимальным объектом, используемым в растровом графическом ре- 
дакторе, является... 


Ф Точка экрана (пиксел) 

$ Объект (прямоугольник, круг и т. д.) 
$ Палитра цветов 

Ф Знакоместо (символ) 


Глава 5 ‚= 


Флажки _ Эт 


Элемент управления "флажок" используется в случае, когда из предложен- 
ных вариантов можно выбрать как один, так и несколько. Каждый вариант 
выбора задается флажком, который можно либо установить, либо сбросить. 
Флажок определяется в теге <1прие> значением съескЬох параметра туре. 
Обязательным параметром является параметр уа1ае, значение которого бу- 
дет передано на обработку в случае выбора нажатием кнопки. 


Выбор характеристик издания 


Предположим, читателю предлагается заполнить анкету, в которой требуется 
указать название любимого издания и выбрать из предложенного списка 
характеристики, которые присущи рассматриваемому изданию. 


‚у Анкета читателя - МкчозоН Гекенле Екрютет т 
:. Файл Правка ба _Перенад ^ _ Извренное _ "Справ 


= эаа азы. 


Анкета читателя 


Введите название любимого журнала или газеты 


[Компьютерные инструменты в образовании 


Что Вас привлекает в издании? 


М Стиль подачи материала 
' Г Достоверность информации 
«+ г У Дизайн и оформление 
\- р Качество информации 


ИИ 


Вас привлекает: 

Стиль подачи материала 
Дизайн и оформление 
Качество информации 
Регулярность издания 


Отмена | 


Рис. 5.1. Пример обработки анкеты читателя 
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Для задания характеристик издания можно воспользоваться флажком. Поль- 
зователь устанавливает флажки для тех свойств, которыми, по его мнению, 
обладает издание. Обработка анкеты будет состоять в том, что выбранные 
свойства будут отражены в поле ввода многострочного текста (рис. 5.1). 


При щелчке мышью по флажку возникает событие с11ск, обработка кото- 
рого состоит в вызове функции зеф с одним параметром, принимающим 
значение параметра уа1ае флажка. Для формирования строки результата 
служит глобальная переменная 3; к имеющемуся значению добавляется зна- 
чение параметра функции и помещается в текстовое поле. Если нажать на 
кнопку Отмена, то очистятся все поля формы. Однако следует позаботиться 
о том, чтобы значение переменной з изменилось на начальное. Значение 
параметра реакции на событие с11ск при щелчке по кнопке Отмена задает- 
ся оператором присваивания, обеспечивающим начальные условия. 


НТМГ-код представлен в листинге 5.1, а. 


| Листинг 5.1, а. Анкета читателя _ | И 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Анкета читателя</ТтТТТЕ> 
<$сг1ре> 
<!-- 
уаг з="Вас привлекает: \г\п" 
Еопсе1оп 5е% (усрП) 
{ $=э+уср + "\к\п"; аосимеп®.Еоги1.ахеа.уа1е=з } 
//--> 
</5сг1рЕ> 
</НЕАО> 
<ВОПУ .Басо1ог="ЕЗЕЗЕЕ"> 
<СЕМТЕВ> 
<НЗ а11ап="сепеег">Анкета читателя</НЗ> 
<ЕОВМ паме="Ёогт0"> 
<Н4>Введите название любимого журнала или газеты</Н4> 
<1пряЕ фуре="$ехе" паме="р1" $12е=45><рг> 
</ЕОВМ> 
<ГОВМ паме="ЁЕоги1"> 
<Н4>Что Вас привлекает в издании?</НА> 
<ТАВЬЕ рогаег=3 а11ап=сепеег> 
<ТВ> 
<ТрЬ><1та9 згс="рагрзи.а1ЁЕ" а11адп="сепкег"></ТО> 
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<ТО><1прие буре="свескрох" паме="п1" 
уа1ае="Стиль подачи материала" 
опС11ск="5еф (Ёоут1 .е]1етере$[0].уа1ае) "> 
Стиль подачи материала<ру> 
<1приЕ вуре="срескрох" паме="м2" . 
уа1ае="Достоверность информации" 
опС11ск="зеф (Еоти1.е1етепе$ [1] .уа]1ае) "> 
Достоверность информации<рг> 
<1праЕ вуре="свескКрох" папе="и3" 
уа1ае="Дизайн и оформление" 
опС11ск="зе{ (Еоги1.е1емепе$[2].уа1ае) ">. 
Дизайн и оформление<Ьг> 
<1праЕ Еуре="спескрох" паще="та4" 
уа1це="Качество информации" 
опС11ск="зеф (ЁЕогт1 .е1етепе$[3].уа1ае) "> 
Качество информации<Ьг> 
<1прие вуре="срескрох" паме="т5" 
уа1ие="Репутация издания" | 
опС11ск="5еф (Еогт1.е1етепе$ [4].уа1ае)"> 
Репутация издания<рг> 
<1праЕ Еуре="српескБох" паме="тб6" 
уа]ае="Регулярность издания" 
опС]1ск="5еф (Еоги1.е1етепе$ [5] .уа1ае)"> 
Регулярность издания<рг> 
</ТО></ТВ></ТАВЬЕ> 
<Еехбагеа паше="агеа" со1$=35 гом5=7></6ехеагеа><Ьг> 
<1приЕ суре="гезее" уа]ае="Отмена" 
опс11ск= "з='Вас привлекает: \г\п'"> 
</ЕОВМ> 
</ВОБУ> 
</НТМЬ> 


Если флажок получает фокус, то происходит событие Еосаз, в качестве зна- 
чения параметра обработки события, как и в предыдущем случае, может 
быть вызов ФУНКЦИИ зе*: 

<1прие вуре="спескКЬБох" пате="т1" уа1ае="Стиль подачи материала" 


опЕосц5="5еф (Еогт1 .е1етепе$[0).уа1ое)">Стиль подачи материала<Ьт> 
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И, наконец, потеря объектом фокуса вызовет событие в1их, обработка кото- 
рого может быть произведена аналогичным способом: 


<1приЕ суре="свескЬох" папе="п1" уа]ое="Стиль подачи материала" 


опр1ит="5еф (Еот1.е1етепе$ [0] .уа1ае)">Стиль подачи материала<Ьг> 


Объект свескрох обладает свойствами уа1е, паме, +уре, которые соответст- 
вуют параметрам тега, описывающего флажок. Функция зее получает в ка- 
честве параметра объект спескрох и формирует для выбранного флажка зна- 
чения соответствующих ему свойств так, как показано на рис. 5.2. 


Анкета читателя гозой мегов Е хр!огег _ 


Анкета читателя 


Введите название любимого журнала или газеты 
Программирование 


Что Вас привлекает в издании? 


тс Стиль подачи материала = 


| г Репутация издания 
| 
‚Г Регулярность издания 


Свойства выбранного флажка: :^ 
свойство уа1це: Качество информации”. 
свойство папе: 14 | 

свойство туре: снескоох 


Рис. 5.2. Исследование свойств флажка 


В представленном НТМГ-коде (листинг 5.1, 6) обратите внимание на фак- 
тический параметр вызова функции зе+ при обработке события с11ск. 


<НТМЬ> 
<НЕАО> 
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<ТТТЬЕ>Анкета читателя </ТТТЦЬЕ> 
<$сг1ре> 
<!-- 
уаг з="Свойства выбранного флажка: \х\п" 
ЕопсЕ1оп зеф (об) сп) | 
{3+="свойство уа]ае: "+об]св.ха1ае +"\п"+ 
| "свойство папе: "+ою)ср.паше +"\п"+ 
"свойство $уре: "+оБ)ср.вуре +"\п" 
Чосимепе. ог] .агеа.ха1ще=з } 
//--> 
</зск1ре> 
</НЕАО> 
<ВОПБУ Басо]ог="Е8ЕВЕЕ"> 
<СЕМТЕВ> 
<НЗ а11ап="сепеехг">Анкета читателя</НЗ> 
<РГОБМ пацще="Еоги0"> 
<Н4>Введите название любимого журнала или газеты</Н4> 
<1приЕ $уре="6ехе" папе="П1" $1хе=45><рг> . 
</ЕОВМ> 
<РГОВМ папе="Рогти1"> 
<Н4>Что Вас привлекает в издании?</Н4>_ 
<ТАВЬЕ рогаег=3 а119п=сепфег> 
<ТВ> 
<ТЬ><\9 згс="ригрзи.91ЁЕ" а11ап="сепфег"></Тр> 
<ТО><1прие Еуре="свескКЬох" паме="т1" 
уа]1ое="Стиль подачи материала" 
опС11ск="зеф (Еотт1 .е1етепе$[0))"> 
Стиль подачи материала<Ьт> 
<1приЕ суре="свескрох" паме="т2" 
уа1це="Достоверность информации" 
опС11ск="зеф (ЁЕоут1.е1емепе$[1])"> 
Достоверность информации<Ьг> 
<1праЕ вуре="спескрох" паме="т3" 
уа1це="Дизайн и оформление" 
опС11сКк="$еф (Еоум1 .е1етмепе$[2])"> 
Дизайн и оформление<Ьг> 
<1приЕ суре="сресКкюох" паме="т4" 
уа\ае="Качество информации" 


опС11сКк="зеф (Ёоут1 .е1етепе$[3])"> 
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Качество информации<рт> 
<1прие суре="срескКБох" паме="т5" 
уа]1пе="Репутация издания" 
опС11ск="5еф (Ёотг1.е1етепе$ [4])"> 
Репутация издания<Ьг> 
<1праё Еуре="сВескрох" паме="тб" 
уа]1ае="Регулярность издания" 
опС11ск="5еф (Еогт1 .е1етепе$ [5])"> 
Регулярность издания<рт> 
</ТО></ТВ></ТАВЬЕ> 
<Еехфагеа папе="агеа" со13=35 гом$=7></ЕехЕагеа><Ьг> 
<1прае фуре="гезее" уа1ае="Отмена" 
опс11ск="5='Свойства выбранного флажка: \г\п'"> 
</ЕОВМ> 
</ВОПУ> ' 
</НТМЬ> 


В качестве параметра в функцию зе можно передать номер флажка, а уже в 
самой функции определить. свойства выбранного элемента. В этом случае 
Функция зе+ может быть описана следующим образом: 
Еопсе1оп зе% (1) 
{ уаг а=аосотепе® .Еогта$ [1] .е1емепе$ [1-1) 
$+="свойство уа1ае: "+а.уа]ае +"\п"+ 
"свойство пате: "+А.пате +"\п"+ 
"свойство вуре: "+а.фуре +"\п" 


аоспопепе . Еоги$ [1] .е]ещерпе$[6].ха1ае=$} 


Обратите внимание, что в документе определены две формы. Одна содержит 
текстовое поле ввода названия журнала, а во второй форме расположены 
флажки, текстовое поле и кнопка сброса. 


Разделы молодежного издания 


Пусть читателю предлагается заполнить анкету, указав разделы, которые 
должны присутствовать в молодежном издании. | 


Названия разделов представлены в виде флажков. Пользователь устанавли- 
вает те флажки, разделы которых требуется включать в издание. Обработка 
анкет, как и ранее, состоит в том, что выбранные названия разделов поме- 
щаются в поле, расположенное в анкете справа, как изображено на рис. 5.3. 
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м Какие ‘разделы следует включить в издание - Мистозой плеглех в Екрюгег а ОЕ 
„Правка _ ‚Вид ‚Избранное _ _ Сервис _Спраека_ Е. о =: о т В 


7. 


па акне п Ах а р емо 
| 


г Молодежные новости в 
ЗУ | М Молодой гость номера 


Н1-. “| М Молодежь о важных событиях 
= Г Молодой предприниматель 
‚М Молодежь об актуальных 
‘проблемах 


| Г. развлечения и молодежь 


ние] 


Рис. 5.3. Разделы молодежного издания 


Объект снъескьох Кроме свойств уа1ое, паше И фуре, Которые соответствуют 
значениям параметра тега, описывающего флажок, обладает свойством Еогм. 
Указанное свойство позволяет получить доступ к форме, на которой располо- 
жен флажок. Используя свойства формы, можно осуществить доступ к любо- 
му элементу формы. Доступ к восьмому элементу формы получается из функ- 
ЦИИ зеф: ор7сВ. Еогм.е1етепез[7].уа1ае. От объекта съескрох © ПОМОЩЬЮ 
свойства Еога перешли к форме, на которой расположен флажок, форма име- 
ет СВОЙСТВО е1епеп*з, позволяющее получить доступ к любому элементу фор- 
мы, а далее выбирается свойство элемента, которое нас интересует. Приведем 
НТМГ-код (листинг 5.2), соответствующий документу на рис. 5.3. 


ооо осо вос то ооо чоосооч ооо ро но осо осо росе оо ос о оо ооо ово оо оо осо чес о ооо чо о ооо оо осо ооо че ооо о ооо чо осо осо во ооо ооо ооо о соо о ооо соо ово ооо носовое чихо ооо ооо носов ооо соое 4 
: . .’ . : .. . ._® 


| Листинг 5. 2. Разделы молодежного издания: 


<НТМЬ> 
<НЕАО> 
<ТТТТЕ>Какие разделы следует включить в издание</ТТТЬЕ> 
<$сг1р®> 
<!-- 
уаг з="Разделы молодежного издания: \г\п" 
ЕопсЕ1оп зе% (ор)сИ) 
{ з=з+о6]ср.уа]ае +"\г\п"; оБ)сь.Еоги.е1етепе$ [7] .уа1ае=$ } 
//--> | 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ Басо1ог="ЕВЕЗЕЕ"> 
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<Н4 а119п=сепфег>Какие разделы должны быть в молодежном издании?</Н4> 
<ТАВЬЕ Богаег=3> 

<ТВА><ТРЬ><1иа згс="зпрге$$.а91#"></ТО> 

<ТО><ЕОМЕМ папе="ЁЕоги1"> 


</То> 


<1прае 


<1прае 


<1праё 


<1прие 


<1прие 


<1праё 


<1прие 


фуре="спескЬох" паще="т1" уа]ае="Молодежные новости" 
опЕосиз="зе® (Еозта1 .щ1) ">Молодежные новости<Ьг> 
фуре="свескКрох" паще="и2" уа1ае="Молодой гость номера" 
опЕоси5="5еф (Ёоги1.12)" >Молодой гость номера<Ьт> 
фуре="спескКрох" паще="т3З" 

уа1це="Молодежь о важных событиях" 
опЕосц5="5еф (Ёотг1 .п3)">Молодежь о важных событиях<рг> 
суре="спескКЬох" паще=" 4" 

уа1ле="Молодой предприниматель" 

опЕоси5="5еф (Ёогт1.104)">Молодой предприниматель<рт> 
фуре="свескЬох" паще="т5" 

уа1ае="Молодежь об актуальных проблемах" 
опЕосц5="5е (Ёоги1 .п5)"> 

Молодежь об актуальных проблемах<Ьг> 

фуре="свескКЬох" патме="тб" 

уа1ае="Развлечения и молодежь" 
опЕосиз="5еф (Еогт1 .шб)">Развлечения и молодежь<рг> 
суре="спескКЬох" пацще="м7" уа]ае="Карьера и молодежь" 


опЕосц5="5еф (Еогт1.17)">Карьера и молодежь<Ьг> 


<ТО><Еехсагеа папе="агеа" со]$=33 гомз=8></вехфахгеа></ТО> 


</ТВ> 


</ТАВЬЕ> 


<1праЕ Еуре="гезее" уа1ае="Отмена" 


</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


опс11скК='!5$="Разделы молодежного издания: \х\п"'> 


В рассмотренных примерах значения параметра папе флажков были различ- 
ны, поскольку каждый флажок существовал независимо от других. Флажки 
можно объединить в группу. Для этого следует всем флажкам присвоить од- 
Но и ТО Же значение параметра папе. 
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Использование флажков 
в анкете переводчика 


В анкете требуется указать те языки, которыми владеет переводчик. Предпо- 
ложим, что за знание каждого языка назначается определенная сумма. Размер 
вознаграждения определяется после заполнения анкеты в зависимости от тех 
языков, которыми пользователь владеет. По результатам заполненной перево- 
дчиком анкеты напишите сценарий определения размера вознаграждения. 


Для задания сведений о том, владеет ли пользователь определенным язы- 
ком, удобно применять флажок. При щелчке мышью по кнопке Вознаграж- 
дение выполняется функция дгапе(). Требуется проанализировать состоя- 
ние флажков. Свойство снескеа возвращает логическое значение, 
представляющее текущее значение отдельного флажка (Егое ИЛИ Еа1зе). 
Воспользуемся тем, что каждый объект Еохи имеет свойство-массив 
е1ещтеп*з5, Получим доступ к каждому флажку формы. Состояние первого 
флажка можно определить с помошью следующей конструкции: 


(Ааосимепте . Еог1 .е1епепте$[0]).свескеа 


второго — 


(4осимепе. Еоги1 .е]1емепе$[1]).сБескеа 


и т. д. В переменной к накапливается сумма. Шаг увеличения этой пере- 
менной задается в качестве значения параметра уа1ае. После анализа всех 
флажков полученная сумма выводится в документ. 


НТМЕ-код представлен в листинге 5.3. 


<НТМГ> 
<НЕАБ> 
<ТТТЬЕ>Данные, представленные флажком. Анкета переводчика</ТТТЬЕ> 
<5сг1ре 1апдиаде="Зауабсг1р®"> 
<!-- // 
Еопс1оп агап* () 
{ уаг а= аоситепе 
уаг К=0; 
1Е ((4.Еоги1.е1етепф$[0]).сВескеа) 
кК=К+Мапрег (а. Еогт1.е1етепе$ [0] .уа1ае) 
1Е ((а.Еогти1.е1етепез [1]).спескеа) 
К=К+Мипрег (Аа. Еогт1 .е1емепе$[1].уа1ое) 
1Е ((а.Еог1.е1епере$[2]).спескеа) 
К=К-+Мотрет (а. Еогт1 .е1етепе$[2].уа]ае) 
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1Е ((а.Еогт1 .е1емепте$[3]).стескеа) 
К=К+Мопег (а. Еоги1 .е1емепе$[3].ха1ае) 
1ЁЕ ((а.Ео’1 .е1етере$[4]).срескКеа) 
К=К+Мопрехг (а. Еотт1 .е1етепе$ [4] .уа]ае) 
1Е ((а.Еотгт1.е1етере$ [5]) .срескеа) 
К=к+М№олрег (а. ЁЕотг1 .е]ещеп®$[5].уха]1ае) 
Аосчщеп® .мг1%е ("Вам полагается вознаграждение ",К, " у.е.") 
‚ 
//--> 
</5сх1рЕ> 
</НЕАР> 
<ВОрУ> 
<НЗ>Анкета для переводчиков</НЗ> 
Укажите те языки, которыми Вы владеете в совершенстве: <ру> 
<ГОВМ папе="ЁЕогт1"> 
<1проЕ фуре="срескрох" паме="1ап" уа]ае=100>русский<ВК> 
<1праЕ Еуре="срескКЬох" паме="]ап" уа]1ае=200 >английский<ВЕ> 
<1прие буре="спескрох" паще="1ап" уа1ае=300>французский <ВВ> 
`’<1приё суре="спескКБох" паме="1ап" уа]пе=400>немецкий<ВВ> 
<1прие суре="спескЬох" папе="1ап" уа1ае=500>китайский<ВВ> 
<1прие Еуре="свескрох" папе="1]ап" уа]1ае=600>японский<ВВ><НВ> 
<1приЕ суре="БаЕ®оп" уа]ае=Вознаграждениие опС11ск="агап® ()"> <НВ> 
<1приЕ фуре="гезее" уа]ае="Отменить"> 
</ЕОВМ><Вг> 
</ворУу> 
</НТМЬ> 


Параметр 1а применим в следующем примере при задании элементов флажка. 


Использование параметра /<1 


Определим размер вознаграждения по результатам заполнения анкеты. Об- 
ратите внимание на описание элементов форм и на анализ состояния флаж- 
ков В ФУНКЦИИ дхап+ (листинг 5.4). 


| Листинг 5. 4. Переводчики. Использование параметра 1а 


® 
Форос ооо ооо ооо оо ооо ооо осо вор ор ооо рос ооо о ооо вост о сое оо ово во оо о ооо ооо ооо соо в ооо оо соо ооо оо ооо оон оо оо ооо ор оо ооо оо ооо ооо ооо оо ново ос оао ово ово соо со ооо соо соо сов онососооочиоососо - 


<НТМЬЫ> 
<НЕАР> 
<ТТТЬЕ>Данные из формы типа спескЬох. Переводчики</ТТТЬЕ> 
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<зсг1ре 1апаладе="Фауа$сх1р*"> 


<!-- // 


Еопс&1оп агап®() 


{ уа’х Яа= аосамепте 


уах К=0; 

1Е (А.а11 ("1") 
1Е (4.а11 ("2") 
1Е (а.а11 ("3") 
1Е (Я.а11("4") 
1Е (а.а11("5") 
1Е (4.а11 ("6") 


‚. срескеа) 
. спескеа) 
.срескеа) 
.срескКеа) 
.срескеа) 
.срескеа) 


к+=Мипфег (а. 
к+=Мопрег (а. 
к+=М№лфехг (а. 
к+=№ тег (а. 
К+=Мигрег (а. 
к+=М№отфег (а. 


а11 ("1") 
а11 ("2") 
а11 ("3") 
а11 ("4") 
а11 ("5") 
а11 ("6") 


.уа1ое) 
.уа11е) 
.уа1ае) 
.уа1ое) 
.уа]1ае) 
.уа1ое) 


Еогт] .гез.уа1це="Вам полагается вознаграждение "+К+ "у.е." 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОПУ> 
<НЗ>Анкета для переводчиков </НЗ> 
Укажите те языки, которыми Вы владеете в совершенстве: <Ъг> 
<РГОВКМ паме="Ёотгт1"> 


уа1це=100 


<1приаЕ $уре="срескЬох" папе="1]ап" 1а4="1">русский<Ьг> 
<1праЕ буре="срескЬох" паме="1ап" уа1ае=200 1а="2">английский<рг> 
<1праЕ Еуре="сресКкЬох" папе="1ап" уа1ае=300 1а="3">французский<рг> 
<1праЕ Есуре="сресКкюох" паме="]ап" уа1ае=400 14="4">немецкий<рт> 
<1прие суре="срескрох" паме="1ап" уа1ае=500 1а="5">китайский<рг> 
<1праЕ $уре="свесКЬох" паще="1ап" уа1пе=600 -14="6">японский<Втг> 
<1приЕ суре="БаЕфоп" уа1ае=Вознаграждениие опС11ск="дгапе ()"> 
<1приЕ буре="$ехе" $12е=45 папе="гез"><НВ> 
<1приЕ Еуре="гезее" хуа1ае="Отменить"> 
</ЕОВМ> 
</ворУу> 
</НТМГ> 
Упражнение 


Напишите сценарий обработки анкеты слушателя курсов. Пользователь мо- 
жет выбрать курс, его продолжительность, язык, на котором он готов рабо- 
тать с преподавателем, и форму отчетности. В зависимости от этих парамет- 
ров определяется стоимость отдельного курса и стоимость всего обучения. 
Анкета приведена на рис. 5.4. 
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ЕЕ А. | - Местозой 1ентей Екрюгеи 


- Файл- "Правка Ви Избранное Сервис _ _ Справка _ - 


... 
ии лима пиитиианнх: 


Заполните анкету слуш ителя курсов | 


'`Названия 1 курсов "Продолжительность _ Язык СГоаней: [Стоимость С 
”. [7—7 имя ты ЕР ити Е и | АА —— 
4. В № сский Экзамен — 
ТГ формата, | с 36 с 64 с 128 | ее у о 
| й _ НИ Английский | _|С Зачет 


Амана карл плл чар кр кб. радия Ал плача ль кли Чад 9 веклчия и дл плат амаль ЗАК ЗВАЛАКАЯЬ тд лана чад, ладлис кач качели ЗАЛАЛАЛА фа сли чи жди > 2 пл те ила аы, кака пн дрен яме парад колл коде ФФ залил зом чьи ллллька 


- | = ГЕ 
| Г Базы данных | (635 сы с в. сей | Пеоммея 


|| Ррарн и ини [Г Русский о [7 Эжамвя 
| УР ‚с ` 36. г 64 2128 у И 
'Интернет И — Г Английский . >| © Зачет _ 


г АЕ о А а хе р ой али лили луже ий —-— м. 


| [ЕР ое 
Г Анализ |< 36 Е я р 128. Русский = Экзамен — | 
‘алгоритмов —_ г. Английский < Зачет о 


Рис. 5.4. Анкета слушателя курсов 


Глава 6 


Списки 


Если элементов много, то представление их с помощью флажков или пере- 
ключателей увеличивает размер формы. В этом случае варианты выбора 
могут быть представлены в окне браузера более компактно с помошью тега 
<5е1ес&>. Напомним, что тег имеет несколько параметров. Параметр папе 
является обязательным. Для того чтобы установить число одновременно ви- 
димых элементов, следует задать параметр з12е=п. Когда п равно 1, то ото- 
бражается ниспадающее меню или список выбора; при п>1 выводится спи- 
сок Сс п одновременно видимыми значениями. Если параметр з1=е не задан, 
то по умолчанию принимается значение равное 1. Указание параметра 
по1%1р1е означает, что из меню или списка можно выбрать несколько эле- 
ментов. Элементы меню задаются внутри тега <зе1ес*> с помощью тега 
<орЕ1оп>. Общий вид тега таков: 


<орЕ1оп зе1есфеа уа1ае=строка> 


Параметр зе1есфеа означает, что данный элемент списка считается выбран- 
ным по умолчанию. Параметр уа1ае содержит значение, которое передает- 
ся, если данный элемент выбран из списка или меню. 


Использование списка в задаче. 
оформления заказа на витражи 


Вернемся к задаче оформления заказа на витражи. В предыдущей версии 
форма витража задавалась с помощью переключателей. Теперь воспользуем- 
СЯ тегом ‚<5е1есЪф>. 
<ВОрУ> 
<ЕГОВМ паме="Еотт1"> 
Выберите форму витража<рг> 
<5е1есЕ паме="11$е" $12е=1> 
<ор&1оп уа]1ае=0>прямоугольник 
<ор&1оп уа1ае=1>квадрат 
<орЕ1оп уа1ще=2>треугольник 


<орЕ1оп уа1ае=З>круг 
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</зе1ес+> 
<1праЕ вуре="Баббоп" уа1]ае="Проверить" опС11ск="$езЕ5е] ()"> 
<1праЕ суре="гезее" уа1ае="Отменить"> 
</ЕОВМ> 
</вору> 


Выбрать форму витража можно с помощью ниспадающего меню. В приве- 
денном выше коде форма содержит три элемента управления. Первый опре- 
деляется тегом <зе1еск>, следующие два элемента представляют собой 
кнопки Проверить и Отменить. 


Для того чтобы осуществить доступ к первому элементу Формы (списку), 
следует воспользоваться одной из следующих конструкций 


Чосциепе. Еогт1 .11$% 
ЯАосчмепф®. Еотт1 .е1ещепе$ [0] 

Чосцщепф® .Еогт$ ["ЁЕоги1"] .‚е]ещепе$ [0] 
Чосотепе . Еогтз [0] .е1ещепе$ [0] 


Список обладает свойствами 1епдЕп И папе. В рассматриваемом примере 
значение Чосомепе. Еоги1.115%.1епч 5 равно четырем, а значение 
аосчмеп* .Еоги1.11$%.патме равно 115%. 


Свойства зе1есееа И уа1ае связаны с текущим выбором элемента из списка. 
Свойство зе1есфед возвращает значение +гое, если элемент выбран, и Еа1зе — 
в противном случае. В рассматриваемом варианте кода если выбран первый 
элемент (прямоугольник), то значение —((аосомепе. Еогтз ["Еогт1"]. 
е1емепе$[0]) [0].зе1есфеа станет равным +гое. Для анализа следующих 
трех элементов списка следует определить значения: 


Чосимепе . Еогт$ ["Ёоги1"] .е1етепе$[0])[1].5е]1есфеа 
Чосимеп* . Еогиз ["Еотп1"] .е1етер+з[0]) [2].зе1есёеа 


аоспмепе . Еоги$ ["ЁГоги]1"] .е1етепе$[0])[3].зе1есфеа 


Свойство уа1ие возвращает значение параметра ха1ае, определенного в теге 
<орЕ1оп>. Значение ((а.Еоги$ ["Еоги1"] ‚е1емепте$[0]) [0]).уа1ае равно 
нулю. СВОЙСТВО Еех+ возвращает текст, записанный после тега <оре1оп> В 
объекте зе1ес+. Так значением ( (а. Еогиз ["Еогт1"] .е1ещепез [0]) [0]).кехЕ 
является строковый литерал "прямоугольник". 


Функция +ез+зе1() играет роль тестиреумой программы и проверяет, пра- 
вильно ли выбираются параметры. Полностью документ со сценарием будет 
выглядеть так, как представлено в листинге 6.1. 


ооообоо ооо ово во оо ров ооо ово о ооо оо вор ооо ооо оо ово со оо сов о оо о ооо орооо ово оооо ово ооо ооо ро роотоо о вос ово с о асов ооо оо оо ооо ово ооо соков о ооо ооо ооо очоо ооо ооо соо ов оооо вос ровосоовое « 
® ` * 


| “Листинг 6.1. Данные, представленные с помощью тега зе1есь 


<НТМЬ> 
<НЕАБ> 
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<ТТТЬЕ>Данные, представленные с помощью тега зе1ес+</ТТТЬЕ> 
<$сг1ре ="Фауа$сг1р®"> 
<!-- // 
Еорсе1оп Сезь5е] () 
{ уаг а=аосчтепе 
уаг г="Выбранная форма: " 
1Е (((а.Еотгтз ["Еотгп1"] .е1етепе$[0])[0]).5зе1ескеа) 
х=:+ ( (а. Еотта$ ["Еотт1"] .е1етепе$[0]) [0]) .Еехе+" " 
е15е 
1Е (( (а. Еоттаз ["Еогт1"] .е1емепе$ [0])[1)]).5е1есфеа) 
г=т+ ( (а. Еогта$ ["Еоги1"] .е]емепе$[0])[1]) .ехе+" " 
е1 зе 
1Е (((а.Еогта$ ["Еогта1"] .е1етепе$[0])[2]).зе1есееа) 
г=у+ ( (а.Еогт$ ["Еогм1"] .е1емепе$[0])[2]) .5ехе+" " 
е15е 
1Е (((а.Еотт$ ["Еоги1"] .е1етеп®$[0])[3]).зе1есфеа) 
г=т+ ( (а. Еогта$ ["Еохп1"] .е1етепе$[0]) [3]) .Еехё+" " 
Я.мг1 хе (г) 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
<РГОВМ паще="ЁРотт1 "> 
Выберите форму витража<Ьг> 
<5е1есЕ пате="Еогта" $12е=1> 
<орЕ1оп уа1ае=0>прямоугольник 
<орЕ1оп хуа1ае=1>квадрат 
<ор&1оп уа1ае=2>треугольник 
<оре1оп уа1ае=З>круг 
</зе1есЕ> 
<1прие фуре="БаЕ оп" уа1ае="Проверить" опС11ск="{ез&зе1 ()"> 
<1прие Еуре="гезее" уа]ае="Отменить"> 
</ЕОВМ> , 
</вВорУ> 
</НТМТ> 


Глава 6. Списки 155 


Использование списка 
в анекте переводчика 


Напишем сценарий обработки анкеты переводчика. Сведения о тех языках, 
которыми тот владеет, требуется задать с помощью списка. 


Так как переводчик может владеть несколькими языками, то в теге <зе1ес+> 
необходимо указать параметр по1+1р1е, означающий, что из списка могут 
быть выбраны несколько элементов. Определим значение параметра з12е 
равным четырем. Тогда будет отображен список прокрутки с четырьмя од- 
новременно видимыми значениями и тремя выбранными, как на рис. 6.1. 


_ Правка "Вы "Избранное | 


ее: ниче 


Анкета переводчика 


Выберите язык, которым Вы владеете в совершенстве 
английский 9 


немецкий 
китайский 


Вознаграждение 100 


Отменить-. 


Рис. 6.1. Анкета переводчика 


Приведем описание тела НТМГ-кода документа (листинг 6.2, а). 


| Листинг 6.2, а. Анкета переводчика. Представление ‹ списком 


<ВОПУ> 
<ЕОЁКМ папе="ЁЕотги1 "> 
<Н4>Анкета переводчика</Н4> 
Выберите язык, которым Вы владеете в совершенстве<рг> 
<5е1ес® паме="Еогма" $12е=4 па1&1р1е> 
<ор&1оп уа1ае="русский">русский 
<оре1оп уа]е="английский">английский 


<орЕ1оп уа1ае="французский">французский 
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<ор&1оп хуа1ае="немецкий">немецкий 
<оре1оп уа]ае="китайский">китайский 
<орЕ1оп уа1ае="японский">японский 
</зе1ес&><Р> 
Вознаграждение: <1прае Еуре="Еехе" паме="гез" $12е=10><Р> 
<1праЕ туре="раекоп" уа1ае="Определить" 
опС11ск="Еотг1 .гез.уа1ае=$ез®5е1 ()"> 
<1прие $уре="гезеф" уа1ае="Отменить"> 
</ЕОВМ> 
</ВОрУ> 


В форме содержатся несколько элементов. Нас будет интересовать первый 
элемент, а в первом элементе те значения, которые выбраны. Как и в пре- 
дыдущем примере, определить, какие элементы выбраны, можно, если про- 
анализировать следующие значения: 


((4осимепле. Еогм$ ["ЁЕоуп1"] .е1етепе$ [0 зе1есфеа 


[0]). 
((Чосимепе. Еогт$ ["ЁЕогм1"] .е1етепе$[0]) [1]).5е1есъеа 
[2]).зе1есфеа 
(аосомепе. Еоги$ ["ЁЕогт1"] .е]етепе$[0])[3]).зе1есхеа. 
[4]). 
[5]). 


] 
] 

((Чосимеп®. Еогт$ ["Ёог1"] .е1етепф$ [0] 
] 
] зе1есфеа 
] 


) 
) 
) 
( ) 
((Чосимепе. Еотта$ ["ЁЕогт1"] .е]етепе$[0]) 
( ) 


(аоситепе. Еогта$ ["ЁЕоги1"] .е]емепе$ [0 зе1есфеа 


За знание каждого языка назначается определенная сумма. После анализа всех 
выбранных значений определяется вознаграждение. Для определения суммы 
вознаграждения следует щелкнуть по кнопке Определить. Реакция на это со- 
бытие — запись в поле формы вычисленного значения (листинг 6.2, 6). 


Листинг 6.2, 6. Данные об языках, представленные с помощью списка _ 


<НТМГ> 
<НЕАР»>, 
<ТГЕ>Данные об языках, представленные с помощью списка</ТТТЬЕ> 
<5сг1ре 1апацаде="Зауа$сг1ре"> 
<!-- // 
Еопсе1оп %е5%5$е1 () 
{ уаг а=аосятепе 
уаг $=0 
1Е (( (а. Еомиз ["Еотий"] .е1ещерез[0]) [0]) .зе1есьеа) 5+=100 
1Е (((а.Еогта$ ["Еог1"] .е1етепе$[0]) [1]).зе1есфеа) з+=200 
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ТЕ (((а.Еоута$ ["Еотт1"] .е]1етепе$[0]) [2]).зе1есфеа) $+=300 
1Е (((а.Еогта$ ["Еоги1"] .е1етмепе$[0])[3]).5е1есфеа) $з+=400 
(( ) 
(( ) 


1Е (а. Еогта$ ["Еогп1"] .е1етепе$[0])[4]).5е1есееа) $+=500 
1Е (а. Еоги$ ["ЁЕоги1"] .е1емептез[0])[5]).зе1есфеа) $+=600 
хебагп $5 
} 
//--> 
</5$сг1ре> 
</НЕАО> 


<ВОРУ> 
<ГОВМ пащме="Еотт1"> 
<Н4>Анкета переводчика</Н4А> 
Выберите язык, которым Вы владеете в совершенстве<г> 
<5е1есЕ паме="ЁЕогта" $12е=4 МОБТТРЬЕ> 
<орЕ1оп уа1ае="русский">русский 
<орЕ1оп уа]ае="английский">английский 
<ор&1оп уа]де="французский">французский 
<ор&1оп уа]1ае="немецкий">немецкий 
<оре1оп уа1ае="китайский">китайский 
<орЕ1оп уа1ае="японский">японский 
</зе1ес+><Р> 
Вознаграждение: <1праЕ Еуре="$ехе" папе="гез$" $12е=10><Р> 
<1приЕ +уре="БаЕЕоп" уа1ае="Определить" 
опС11ск="Еоги1 .гез.уа]ае=кез&$е1 () "> 
<1праЕ суре="гезее" уа1ае="Отменить"> 
</ЕОВМ> 
</ВОБУ> 
</НТМГЬ> 


Обработка анкеты переводчика 


Напишем сценарий обработки анкеты переводчика. Сведения о тех языках, 
которыми владеет переводчик, требуется задать с помощью списка. Выбран- 
ные языки следует помещать в поле ввода многострочного текста, как на 
рис. 6.2. 


Напомним, что событие свапае происходит в тот момент, когда значение 
элемента формы +ехе, зе1есЕ ИЛИ {ехфагеа изменилось, и элемент потерял 
фокус. Будем обрабатывать анкету переводчика следующим образом. Пара- 
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метр обработки события поместим в тег <зе1ес+>. Как только выбран кон- 
кретный язык, т. е. произошло событие съапае, выполняется функция ог: 
ЕапсЕ1оп ах (о), м) 
{ уаг г=100* (№аирег ( ( (о) .е1епмепе$[0]) [ш]) .уа1ае) +1) 
3+= ( (05) .е1етепе5[0]) [п] ) .Еехё+"\х\п" 
ор) .гезфехе.уа]1ще=$ 
зиИ+=Е 


ор].гез.уа]ще=г 


аа ка Во _ Избранное _ _ Сервис Се => ей | 


Анкета переводчика 


деиллкль плимщд ик пении клаловлл илл злая лритислчллнь т китая ле лолаллями ами клипа алиодлимлалалля > пролил что чл. 


Вобриный язык! к | ` Результат 


ея 


_ Отменить _ 


Рис. 6.2. Выбор с помощью списка 


Первый параметр — имя формы, второй — значение параметра уа1ае вы- 
бранного элемента. Второй оператор обеспечивает формирование строки 
всех выбранных пользователем языков. Третий оператор помещает вычис- 
ленное значение в текстовое поле. В результате выполнения четвертого опе- 
ратора присваивания в переменной зим формируется значение, которое за- 
тем при нажатии кнопки Сумма будет выведено в текстовое поле. Послед- 
ний оператор помещает значение для выбранного языка в соответствующее 
поле формы. Полностью документ со сценарием и формами может быть 
описан так, ка указано в листинге 6.3. 
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. Листинг 6.3. Реакция на событие Свапде В ТеГе <ве1ес=> 
<НТМГ> 
<НЕАО> 


<ТТТЬЕ>Реакция на событие Свапде в теге зе1ес*</ТТТЬЕ> 
<$сг1ре 1апдцаде="Фауа$сг1р®"> 
<!-- // 
уаг $="" 
уаг зап=0 
Еопс®1оп ах (ор),м) 
{ уахг хг=100* (№аопрег ( ( (05) .е1емепез [0]) [ш]) .уа1ае) +1) 
3+= ( (05) .е1емепез$ [0]) [п]) .5ехё+"\х\п" 
ор] .гезеехе.уа]1щае=$ 
зим+=Е 
оЬ) .гез.уа]ае=х 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
<РОВМ папе="Ёоги1"> 
<НЗ>Анкета переводчика</НЗ> 
<ТАВЬЕ Богаег=3 Бдсо1ог=$11уег> 
<ТВ><ТН>Выбранный язык</ТН><ТН>Результат</ТН></ТЕ> 
<ТВ> 
<ТР уа11ап=Еор> 
<зе1есе паме="Чафа" 512е=6 
опСпапде="дг (Ёотти1 , Еотт1 .Чаба.уа1ае)"> 
<орЕ1оп уа1лле=0>русский 
<ор&1оп уа]1дае=1>английский 
<ор&1оп уа1ае=2>французский 
<орЕ1оп уа1ле=З3>немецкий 
<ор®1оп уа1ае=4>китайский 
<орЕ1оп уа]1ае=5>японский 
</зе1ес+><Р> 
<1приЕ $уре="6ех®" папе="гез" $12е=15> 
</тр> 
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<ТО><ТЕХТАВЕА папе="гезеех®" со1$=15 гомз=6> 
</ТЕХТАВЕА><Р> 
<1праё Еуре="раееоп" уа]ае=Сумма 
опС11ск="ЁЕогт1 . гезаг. уа1ще=зит"> 


<1приЕ Еуре="$ехе" папе="гезаг" $17е=10> 


</ТО></ТВ></ТАВЬЕ><р> 
<1прие суре="гезее" уа1ае="Отменить" опС11ск="зоп=0; з=''"> 
</ЕРОВМ> 
</ВОрУ> 
</НТМЬ> 


Рассмотрим случай, когда значение параметра обработки события — функ- 
ЦИЯ с ОДНИМ Параметром, который является именем тега <5е1есф>. 
<5е1есе паме="Чата" $17е=6 опСпапде="атг (Еотги1 .Чафа)"> 

<оре1оп уа1ае=0О>русский 

<орЕ1оп уа1ае=1>английский 

<ор&1оп уа1ае=2>французский 

<ор&1оп уа1ае=З3>немецкий 

<оре1оп уа]1ае=4>китайский 

<ор&1оп уа1ае=5>японский 


</зе1есф> 


Для того чтобы получить доступ к значению в сценарии, выполняется кон- 
струкция оЪь).уа1ле, а свойство списка Еоги Позволяет получить доступ к 
объектам формы. Форма имеет несколько элементов, к которым доступ по- 
лучен различными способами в следующем сценарии: 
ЕапсЕ1оп ах (051) 

{ уаг г=(Мапфег ( ( (о) .Еогм.е1етепе$ [0]) [025] .уа1ае]).уа1ае) +1) *100 

$+= ( (ор). Еохт.е1емере$ [0]) [ою) .уа1ае]).$ехЕ+"\х\п" | 

ор] .Еога. гезкех® .уа1ае=$ 

зи+=Е 


ор] .Еога.гез.уа1це=г 


Анкета читателя 


Пусть при заполнении анкеты читатель выбирает в порядке важности для 
него некоторые заданные в анкете характеристики книг. В результате выбо- 
ра должен быть сформирован список так, как показано на рис. 6.3. 
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ПРИЫ отелях с И И У ООО ОО А бро орорерманьЕ 


Н. Файл” _ Правка. _Ви _ Избранное _ _ Сервис _ Справка. т. И 


Од ормление обложки : Наличие СЬ или дискет 
| Объем 
|Цена — Наличие цветных иллюстраций 
Качество бумаги Цена 
Наличие цветных иллюстраций | |5 Качество бумаги 
Наличие СО или дискет № Оформление обложки 


_ Обновить 


Рис. 6.3. Обработка анкеты читателя 


При выборе очередной характеристики в теге <зе1ес*> возникает событие 
Спапде, обработка которого состоит в помещении выбранной характеристи- 
ки в качестве элемента списка, формируемого в многострочном текстовом 
поле. При обновлении полей формы глобальным переменным, используе- 
мым в сценарии, присваиваются начальные значения. НТМГ-код представ- 
лен в листинге 6.4. 


Листинг 6. 4. Характеристики. книг в порядке предпочтения 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Характеристики книг в порядке предпочтения</ТТТЬЕ> 
<$сг1ре> 
уаг К=1 
уаг $="" 
ЕопсЕ1оп шоу (п) 
{ $=$+К+' '+ЁЕотт1.Аааба[п].$ехе+"\г\п" 
К=Кк+1 
Еогт1 .гез.уа1ае=5 
} 
Еопсе1оп геЕЁ() 
{ К=1; з="" } 


</зсг1рЕ> 
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</НЕАО> 
<ВОрУ> 
<НЗ>Перечислите в порядке важности следующие 
характеристики книг</НЗ> 
<ГОВМ папе="ЁЕотт1"> 
<ТАВЬЕ рогаег="6" се1]рааа1па="7" се115раслпа="0" млар="100"> 
<ТВ> 
<То> 
<зе1есЕ паще="Чафа" з12е="8" 
опСпапде="тох (Ёогт1 .Чафа.уа]11ае) "> 
<орЕ1оп уа1ае=0>Оформление обложки 
<оре1оп уа]ле=1>Объем 
<орЕ1оп уа]1ае=2>Цена 
<орЕ1оп уа1ае=З3>Качество бумаги 
<ор&1оп уа]ае=4>Наличие цветных иллюстраций 
<орЕ1оп уа1ае=5>Наличие СО или дискет 
</зе1есЕ> 
</ТО> | 
<ТР уа11др="Ъобеот" изасЬ="95%"> 
<сехбагеа паще="гез" гом5="8" со1з="30"></+ехбагеа> 
</ТО> 
</ТВ> 
</ТАВЬЕ><р> 
<1праЕ суре="гезее" уа1пе="Обновить" опС11ск=геЕЁ()> 
</ЕОВМ> 
</вВорУу> 
</НТМЬ> 


Обработка анкеты читателя 


Необходимо написать сценарий обработки анкеты читателя. Выбранные ха- 
рактеристики должны формироваться в виде списка. 


После выбора очередной характеристики книги следует щелкнуть по кнопке 
Добавить, и характеристика с номером предпочтения появится в правом 
столбце. В результате выполнения функции +ез+ проверяется, какой эле- 
мент выбран, и указанная характеристика помещается в конец формируе- 
мого списка. Количество элементов в формируемом списке должно быть не 
более, чем в исходном. Если делается попытка поместить большее число 
элементов, то выводится сообщение об ошибке (листинг 6.5). 
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ВОО ООО ООО ОО ПРО ЯОООО ООРОУООРОООРООЛОООО О ВИО ВО ООО Я Ч И У ООО ооо оборо ооо ропоово зоо во» оосов. д 
С : .- - 1. * 


Листинг 6; 5; „Данные, представленные списком: и: помещаемые в. список - 


ооо оо вос о ооо оо ооо во бо ооо ооо рее ооо оо вое оо во бро во ооо часе о ооо оное о оо о оо ооо во ооо оно ось оо ооо ооо оо 5 ооо оовбо оо о ово оо вос ороооофо ооо ово вос о о пор вос во воно ров ооо ововоовоововооьооо $ 


<НТМГ> 
<НЕАО> 
<ТТТТЕ>Данные, представленные списком</ТТТЬЕ> 
<5сг1ре 1апдчаде="Зауа$ сг1р®"> 
<!-- // 
уаг п=0 
Еопс&1оп е53% (о) ) 
{ 1Е (п<=(оЪ].е1епепе$[2]).1епаЕП-1) 
{ 1Е (((оЪ).е1етепе$[0]) [0]).5зе1есфеа) 
{ ( (057 .е1етмепе$[2]) [п]).Еехё=п+1+ 
" "+ ( (057 .е1емепе$ [0]) [0]) .Еехе+" "; п= 1+1} 
1Е (((057).е1етепЕ$[0]) [1]).5е1есееа) 
{ ( (25) .е1емепе$ [2]) [п]).5ехе=п+1+ 
" "+ ( (ор) .е1етмептез [0]) [1]) .БехЕ+" "; п= п+1} 
1Е (((о5).е1етепез[0]) [2]).5е1есфеа) 
{ ( (25) .е1емепез [2]) [п]).ЕехЕ=п+1+ 
" "+( (ор) .е1етепез [0]) [2]) .БехЕ+" "; п= п+1} 
1Е (((о57.е1етмепе$[0])[3]).5е1есфеа) 
{ ((о5).е1емепез [2]) [п]).6ехЕ=п+1+ 
" "+ ( (05) .е1емепе$ [0]) [3])} .Еехе+" "; п= п+1} 
1Е (((о57).е1етепе$[0]) [4]).зе1есфеа) 
{ ((о25).е1емепез [2]) [п]) .Бехё=п+1+ 
" "+ ( (05) .е1етепез [0]) [4]) .5ехЕ+" "; п= п+1} 
3Е (( (057 .е1етмепез[0]) [5]).зе1есфеа) 
{ ((257.е1емепе$[2]) [р] ).5ехё=р+1+ 
" "+( (ор) .е1тетепе$ [0]) [5]) .ЕехЕ+" "; п= п+1} 
} 
е]15е а1ех’ф ("Ваш выбор содержит ошибку") 
} 
//--> 
</5сг1рЕ> 
</НЕАР> 
<ВОБУ> 
<РГОВМ папе="ЁЕотги1"> 
<НЗ>Анкета читателя</НЗ> 
<Р>Перечислите в порядке важности следующие 


шесть характеристик книг</Р> 
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<5е1есф паме="Гогта" $12е=7 пи]1&1р1е> 
<оре1оп уа]ае="обложка">Оформление обложки 
<оре1оп уа]1ае="объем">Объем книги 
<оре1оп уа1ае="цена">Цена книги 
<орЕ1оп уа]1ае="качество бумаги">Качество бумаги 
<оре1оп уа1ае="иллюстраций">Наличие цветных иллюстраций 
<орЕ1оп уа]ае="диски">Наличие Ср или дискет 

</зе1есЕ> 

<1прие $уре="рае®оп" уа1ае=Добавить опС11ск="%ез% (Еогт1) "> 

<зе1есЕ папме="ЁЕогигез" $12е=7 по161р1е> 
<оре1оп уа1ае="п1"> 
<орЕ1оп уа1ае="п2"> 
<орё1оп уа1ае="р3"> 
<оре1оп уа1ае="п4"> 
<орезоп уа1ае="п5"> 
<оре1оп уа1ае="пб"> 

</зе1есЕ> 

</ЕОВМ> 
</ворУ> 
</НТМГ> 


Недостаток сценария заключается в том, что в результирующем списке мо- 
гут оказаться одинаковые элементы. 


Выбор изображения из списка 


Напишем сценарий, во время работы которого при выборе из заданного 
списка названия рисунка в документе появляется соответствующее изобра- 
жение (рис. 6.4). 


Названия рисунков задаются с помощью тега <зе1ес+>. При выборе назва- 
ния возникает событие Спапде, обработка которого состоит в том, что в до- 
кументе появляется соответствующий выбранному названию рисунок. Связь 
между названием рисунка и изображением устанавливается параметром 
уа1ае. При выполнении оператора зи1есь в функции, обрабатывающей со- 
бытие, анализируется выбранное значение и загружается соответствующий 
рисунок. Для того чтобы отобразить на странице другой рисунок, следует 
изменить параметр зхс объекта 1паде. Документ, реализующий сценарий, 
представлен в листинге 6.6. 
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| и: Выбор изображения из ... | 


Выбор рисунка 


Стоимость: [200 


__ Обновить _ 


Рис. 6.4. Выбор изображения из списка 
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| Листинг 6.6. Выбор изображения из списка 


<НТМГЬ> 
<НЕАО> 
<ТТТЬЕ>Выбор изображения из списка</ТТТЬЕ> 
<$сг1рЕ> 
<!-- 
Еопсе1оп геЕ (053) 
{ ор].рлсЕ.ха1ае='0' 
сп _р1с® (0) 
оь).гез.уа]1ае='' 
о) .мур1с®.згс="р1с®иге. а1Е" 
} 
Еипсе1оп св р1с® (пи) 
{ таг а=аосимепр® 
зитЕСВ (пам) 
{ сазе "0": а.мур1с®е.5згс="р1сеаге0д.91Е"; ргеак; 
сазе "1": а.мур1се.згс="р1сеаге1.91Е"; ргеаКк; 
сазе "2": а.мур1с®.згс="р1сфаге2.а1Е"; БгеаКк; 
сазе "3"; а.мур1с®.згс="р1сеигхе3з.91Е"; Бгеак; 


сазе "4": А.мур1сЕ. згс="р1свиге4.91Е"; ргеаК; 


ооо р оор 


сазе "5": „ПурасЕ.звгс="русваге5.а4Е"; Ьгеак; 
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сазе "6": а.тур1с®е. згс="р1сагеб.91Е"; ргеак; 
} 
Еоги1.ге$.уа1ие=пит*100 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ рдсо1ог="#еаЕ5еЁ"> 
<НЗ>Выбор рисунка</НЗ> 
<РОВМ папе="Еохт1"> 
<ТАВЬЕ Богаег=1> 
<ТВ> 
<ТрО> 
<зе1есЕ паме="р1се" з12хе="7" 
опСрапде="сй__р1с® (Ёотта1.р1с®.уа1ае) "> 
<орЕ1оп уа1ае="0">Нет 
<оре1оп уа1ае="1">Дом 
<оре1оп уа1е="2">Книги 
<оре1оп уа]ае="3">Письмо 
<ор&1оп уа1ае="4">Краски 
<орЕ1оп уа1ае="5">Вопрос 
<орЕ1оп уа]1ае="6">Дерево 
</зе1ес&> 
</Тр> 
<ТЬ><1МС эзгс="р1сеаге0.91Ё" паме="тур1се" м1а6р=100></ТО></ТВ> 
</ТАВШЕ> 
<рг> 
Стоимость: <1приЕ буре="кехе" папе="гез" $12е=12><Р> 
<1праЕ буре="БаЕоп" уа1ае="Обновить" опС11ск="геЕ (ЁЕогт1) "> 
</ЕОВМ> 
</ворУу> 
<иНТМГЬ> 


В приведенном примере считается, что файлы с изображением хранятся в 
той же папке, что и создаваемый НТМЕ-документ. Если это не так, то в 
правой части операторов присваивания оператора зи1есвь следует указать 
полное имя файла с изображением. Тот факт, что выбранное название ри- 
сунка и имя графического файла с изображением связаны значением пара- 
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метра уа1ае тега <орЕ1оп>, Позволяет сократить текст программы и описать 
функцию сь_р+сЕ следующим образом: 
Еипсе1оп сп р1с® (пам) 
{ уаг Ч9=аосатепте 
Ч. пур1се. эгс="р1сеаге"+пит+".91Е" 
отт] .гез.уа]1ае=пим* 100 


} 


Имя файла изображения формируется в виде строки; значение пом опреде- 
ляет по названию имя файла с изображением. 


В документе лишь одно изображение, поэтому для доступа к объекту 1маде 
на странице можно воспользоваться конструкцией досомепе.1тадез [0]. 
Функция сь_р1с+ в этом случае может быть описана следующим образом. 


ЕорсЕ1оп св р1с® (пам) 
{ уаг Ч=аосчтепе 
Я.1тадез[0].5гс="р1сбаге"+поам+" . 91" 


Еоги]1 .гез.ха]ае=пигш* 100 


Изменение свойств 
горизонтальной линии 


Напишем сценарий, при выполнении которого горизонтальная линия пред- 
ставлена в документе с заданными параметрами. Предусмотрите возмож- 
ность изменения цвета линии. После задания параметров выравнивания, 
длины, толщины и цвета линии документ примет вид, как на рис. 6.5. 


Определим В виде списка название цветов для горизонтальной ЛИНИИ, КОТО- 
рые может задать пользователь. При выборе цвета реакцией на событие 
СВапае будет вызов функции ак (Роги1, Еоги1.со1.уа1ае) С Двумя парамет- 
рами. Первый параметр необходим, чтобы получить доступ к элементам до- 
кумента, а второй указывает значение выбранного элемента в списке цветов. 
По последнему параметру определяется название цвета. Функцию авг можно 
упростить, если в качестве значения параметра уа1ае тега <орЕ1оп> задать 
название цвета. 


Доступ к свойствам, определяющим горизонтальную линию, осуществляется 
с помошью параметра 1ч. 


НТМГ-код, содержащий требуемый сценарий, представлен в листинге 6.7. 
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Изменение свойств горизонтальной линии - Месгозо® 


| Файл. Правка ` Вид Избранное .. Сервис : пра’ ка. 


Г оризонтальные линии 


Выберите значения параметров, которые требуется 
изменить, и нажмите кнопку Выполнить. 


Выравнивание ‚Цвет линии (с010г) 
(С БЕРТ Геа! т 

© СЕМТЕВ 

‚С тент 


р толщина линии (312е} 
[270 длина линии (ч19%0} | 


Выполнить _ 


Обновить _ 


Рис. 6.5. Изменение свойств горизонтальгой линии 


: Листинг 6.7. Изменение свойств горизонтальной линии: 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Изменение свойств горизонтальной линии</ТТТЬЕ> 
<$сг1р®> | 
<!-- 
Еопс&1оп аг(оБ), м) 
{ аосимепе.а11 ("1") .со1охг= ( (о .е1емеп*$[5]) [ш]) .Еехё } 
`ЕапсЕ1ол зе% (057) 
{ уаг з="" 


1Е (05) .е1етепе$[0].сВесКкеа) з=оБ].е1етеп+$[0].ха1ае 
е1 зе | 


1Е (05) .е1етепе$[1].сВескеа) з=оь).е1етеп*$ [1] .ха1ае 
е1зе | 
1Е (ор .е1емеп*$[2].свескеа) 3=0Ъ3 .е1ещепеЕз[2].уа1ае 
Чосимепе.а11 ("1") .а119п=$ | 
1Е (06).м1А.уа1ае != "") аосимепе.а11 ("1") .и1АЕр=ор).м1а.уа1ае 


1Е (06).512.уа1ае != "") аосомепе.а11("1") .51хе=ор).512.уа1ае 


} 


ЕопсЕ1оп гзеф(оЪ71) 
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{ аосимепе.а11 ("1" 
аосомепе .а11 ("]" 


) мар =200 

). 
Зосптепе.а11 ("1") .со1ох="геа" 

). 


$12е=20 
Аосомепе .а11 ("1") .а119п="1еЕ*" 
ор) .м1А.уа]е=200 
ор].$172.уУа]1ае=20 


} 


//--> 
</зсх1рЕ> 
</НЕАО> 
<ВОПБУ Басо1ог="ЕЗВЕЗЕЕ"> 
<НЗ а11ап=сепеег>Горизонтальные линии</НЗ> 


Выберите значения параметров, которые требуется изменить, 


и нажмите кнопку <В>Выполнить</В>. 
<НВ 1а="]" паще="11п" $315хе=20 м1аЕр=200 а11ап= 1еЕф Со1ог=геа> 
<ТАВЬЕ рогаег=З>. 


<ТВ> 
<ТО> 
<ГОВМ папе="Еотгт1"> 
<РВЕ> 
Выравнивание | 
<4прие фуре="га91о" паме="т" уа]1ае="ЦЕЕТ" срескеа>цЕЕТ 
<1праЕ вуре="гаа1о" папе="т" уа1ае="СЕМТЕВ">СЕМТЕВ 


<1прие 
<1праё 
<1прие 
</То> 


суре="га41о" паме="м" уа1ае="ВАТСНТ">ВТСНТ 
суре="6ех®" $17хе=8 паме= $172 уа1ае=20> толщина линии ($127е) 
фуре="6ехе" з12хе=8 паме= м1а уа1ае=200> длина линии (мат) 


<ТР уа119п="$ор"> 


Цвет линии (со1ог) <5е1есе паме= со1 $х17е=1 


опСпапае="ат (Ёогт1, Еоги1 .со1.уа]1ае)"> 


<орЕ1оп уа1ае=0 >геа 


<орЕ1оп уа1ае=1>дгееп 


<ор*1оп уа]1чае=2>51аск 


<орё1оп уа]ае=З>тагооп 


<орЕ1оп уа]ае=4>дгееп 


<орЕ1оп уа]1де=5>011уе 


<орЕ1оп уа]ае=б>пауу 


<орЕ1оп уа1ае=7>риг1е 


<ор&1оп уа1ае=8>+еа1 


<ор®1оп уа1е=9>атау 
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<орЕ1оп уа]ае=10>$11уег 
уа1це=11>уе11о0м 


\уа1це=12>5]ае 


<ор®1оп 
<ор&1оп 
<орё1оп уа1ае=13>ЕасЬ$1а 
<ор&1оп уа1ае=14>ип1{е 

</зе1ес+> 
</ТО></ТВ></ТАВЬЕ><Р> 
<1приЕ суре="Баебоп" уа1ае="Выполнить" 
<1праф суре="гезеф" уа1ае="Обновить" 

</РВЕ> 
</ЕОВМ> 
</ВОБУ> 


</НТМГ> 


Анкета "Преподаватель 


Часть [. Язык Чауа$сПпрЕ для начинающих 


опс11ск="зеф (Ёогт1) "> 
опс11скК="узеё (Ёотт1) "> 


и студент" 


Напишем сценарий обработки анкеты "Преподаватель и студент". Фамилии 
преподавателей задаются с помощью списка. Студент выбирает фамилию 


преподавателя и ставит оценки по указанным критериям. 


ет Анкета‘ ‘Преподаватель и стадент ЦА. Рыжков] - Местовой |ллетле! Екр!огеи 


_ Правка. `В ‚ Избранное _ Сервис ` травка 


АИ аук х 


| ‚Файл 


Информация о студенте 


| Факультет [мет -мех х =] Курс 1 п; Группа 


|. има лия рез один пилы ла т АА и ал дла дить ыы... 
: т 


Список преподавателей: Показатель 


| Соответствие программе 
‚Кулаков Игорь Павлович р р: 


Иванова Марина Валерьевна 
Сидоров Виктор Григорьевич 
Кулаков Игорь Павлович 
Голубев Владимир Андреевич 
Петрова Марианна Владимировна 
Е Прокофьева Мария Семеняеня | еееаны 


: | 
:. Лебедев Сергей Николаевич | 


тех и ая лье я р Кен г— 


| 
| ‚Учет специфики аудитории 


[а = 
И. 


‚ _ Статистика `` 


Сидоров Виктор Грипорьевим: 19 


Кулаков Игорь Павловим: 15 


Очистить. 


Рис. 6.6. Анкета "Преподаватель и студент" 


БИБАСАВРА 
192 ВЕ < 5| 
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После нажатия кнопки Статистика фамилия преподавателя и вычисленная 
сумма баллов появляются в области результата. После работы с анкетой ее 
вид может быть таким, как на рис. 6.6. 


НТМГ-код документа обработки анкеты имеет вид, представленный в лис- 
тинге 6.8. 


| Листинг 6.8. Анкета "Преподаватель и студент". о о | | | 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ> Анкета "Преподаватель и студент" (А.Рыжков) </ТТТЬЕ> 
<$сг1ре ]1апдоаде="Фауа$ст1ре"> 
<!-- 
уаг р="" 
уаг з="" 
ЕопсЕ1оп ах (об, м) 
{ р=((оЬ)].е1емере$[3]) [м] ).5ехё } 
Еопс&1о0оп $6а%15$% (ор)) 
{ уаг гез=0 
1Е (05) [0] .свескеа 
1Е (007 [1] .спескеа 
1Е ( 
1Е ( 


) {гез=ге$+1} 

) 
орз [2] .спескеа) {гез=гез+3} 

) 

) 


{гез=ге$+2 } 


ор7 [3] .сВескеа 
1Ё (003 [4] .срескеа 
гесагп гебз 
} 
Еорсе1оп з6аф (057) 
{ 3=5+р+": "+Мопьег (5$а%*153% (057 .раг1)+$$а*1$% (ор) .раг2)+ 


{гез=ге$+4} 


{гез=ге$+5} 


$$аЕ15% (06) .раг3)+$5а{1$% (ою).раг4)+ $%а®15% (об) .раг5))+"\х\п" 
оЪ7 .геза1ф.ха1ае=$ 
} 

//--> 

</зсг1рЕ> 
</НЕАБ> 
<ВОРУ раскагоппа="Еоп1.)рд"> 

<СЕМТЕВ> 

<Н4 а11ап="сереек"> Информация о студенте </Н4> 

<РГОВМ папе="ЁЕотта1"> 


Факультет <5е1ес® паме="ЁЕасо1®у" $12е=1 пах1епаЕВ=20> 
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<ор&1оп уа1ае="им"> мат-мех 
<орЕ1оп уа1ще="рр"> физфак 
<ор*1оп уа1ае="сВ"> химфак 
</зе1есф> ‘ 
Курс <5е1есе патше="К" $12е=1 пах1епаеР=1> 
_ <оре1оп уа1ае=1> 1 
<орЕ1оп уа1ще=2> 2 
<орЕ1оп уа1ие=3> 3 
<ор&1оп уа]1ле=4> 4 
<оре1оп уа]1це=5> 5 
</зе1есе> | 
Группа <1прие $уре="%ехе" паме="агоЦр" 312е=4> 
<ТАВЬЕ рогаег=3> 
<ТВ> 
<ТО уа11ап="6ор"> 
<Н4>Список преподавателей: </Н4> 
<5е1есЕ папме="феасрехг" $17е=1 со1=50 
опС11ск="аг (Еотта1, Еогт1. Сеасрег.уа]1щае) "> 
<оре1оп уа]1лае=0> Иванова Марина Валерьевна 
<ор1оп уа1ие=1> Сидоров Виктор Григорьевич. 
<орЕ1оп уа]1ае=2> Кулаков Игорь Павлович 
<оре1оп уа]ае=3> Голубев Владимир Андреевич 
<орЕ1оп уа1ае=4> Петрова Марианна Владимировна 
<орЕ1оп \уа]ле=5> Прокофьева Мария Семеновна 
<орЕ1оп уа]ае=6> Лебедев Сергей Николаевич 
</зе1ес&> 
</ТО> 
<ТО> 
<ТАВЬЕ рог4аег=2 а119п="сепеег" Баскакоцпа="Еоп3 .91Ё"> 
<ТВ><ТН а119п="сепёег"> Показатель </ТН> 
<ТН со1зрап=5, а11ап="сепёег"> Оценка </ТН></ТВ> 
<ТВ><ТЬ>Соответствие программе 
<Тр><1праЕ вуре="гаЧ1о" паме="раг1" уа]ще=1>1 
<Тр><1приЕ суре="гаа1о" паме="раг1" уа1ае=2>2 
<ТО><1приЕ суре="гаа1о" папе="раг1" уа]пае=3>3 
<Тр><1прафё Еуре="гаа1о" паще="раг1" уа1ие=4>4 
<ТЬ><1приЕ суре="гаа1о" паще="раг1" уа1ае=5>5 
</ТВ> 
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<ТО><1приЕ суре="гаЧ1о" 
<ТО><1приЕ Еуре="га1о" 
<ТО><1праЕ Еуре="гаа1о" 
` </ТО></ТВ> 

<ТВ><ТО>Доказательность изложения 
<ТО><1приф Еуре="гаа1о" 
<ТО><1при® фуре="гаа1о" 
<ТО><1приЕ +уре="гаа1о" 
<Тр><1праЕ Еуре="гаа1о" 
<Тр><1праЕ +уре="гаа1о" 
</ТО></ТВ> 

<ТВ><ТО>Эффективные методы обучения 
<Тр><1при$ вуре="гаа1о" 
<ТО><1приЕ вуре="га@1о" 
<ТЬ><1прае фуре="гад1о" 
<ТО><1праЕ Еуре="гаа1о" 
<ТЬ><1праЕ +уре="гаЧ1о" 
</ТО></ТВ> 

<ТВ><ТО>Современный уровень 
<Тр><1приЕ Еуре="гаЯ1о" 
<ТО><1прие Еуре="гаа1о" 
<ТО><1приЕ Еуре="гаЯ1о" 
<ТЬ><1приф куре="гаа1о" 
<ТО><1праЕ куре="гаа1о" 
</ТО></ТвВ> 

</ТАВЬЕ> 
</тТр> 
</ТВ> 
</ТАВЬЕ><Р> 


<Тр><1при* 
<ТО><1прае 


фуре="гаа1о" 


суре="гаа1о" 


<ТВ><ТО>Учет специфики аудитории 
папе="раг2" 
папе="раг2" 
папе="раг2" 
папе="раг2" 


паме="ратг2" 


уа1иае=1 
уа1ае=2 
уа1пе=3 
уа]це=4 


уа]е=5 


уа]л1е=1 
уа]ме=2 
уа1ле=3 
уа1ае=4 


уа]пе=5 


уа]1е=1 
уа]1ае=2 
уа]1ае=3 
уа]1пе=4 


уа]1ае=5 


уа11е=1>1 
уа1ае=2>2 
уа1ае=3>3 
уа]1ие=4>4 
уа1ае=5>5 


папе="рахг3">1 
папе="раг3">2 
паме="раг3">3 
папе="раг3">4 


папе="раг3">5 


пате="раг4">1 
папе="раг4">2 
пате="раг4">3 
папе="раг4">4 


папе="раг4">5 


папе="раг5">1 
папе="раг5">2 
паще="раг5">3 
паме="раго">4 


паще="раг5">5 
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<1прие вуре="Бае®оп" уа1ае="Статистика" опС11ск="з$а® (Ёогт1) "><Р> 


<сехфагеа Со1$=40 гом$=5 паще="геза]1{"></бехбагеа><Р> 


<1приё фуре="гезее" уа1е="Очистить" опС11ск="р=''; 


</ЕОВМ> 
</ВовУ> 
</НТМТ> 


$=' ' "> 
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Тест "Города и памятники" 


Напишем сценарий обработки теста "Города и памятники". Названия горо- 
дов и памятников задаются с помощью списков. Пользователь выбирает в 
левом перечне название города, а в правом — памятник, расположенный в 
этом городе. После нажатия кнопки Результат в текстовое поле выводится 
количество правильных ответов (рис. 6.7). 


2 Города и памятники. Зарубаева - МисгозоЙ |бегле! Е кре Ш. 


№ Файл. _Правка_ Вид. ‚Избранное. _ Сервис. _ Справка _ 


он д я ка иоах рх <“ Я 


плана ели льдине нльь 


тина ууотьи 


` Памятник. : т. _|1 Находится в городе ° 


хо слу ил оеалюлика але ачечх дек: длжкхл 


К ОЕ 


кк об м сло щие мая чи ле чья, хе ото лиине ланичх пуле ал лалевлямньх леди фл оны мемеечья ча Зы лат енямитььль 


| Иердевлям 
Милан 


Стена лаче | 
Священный камень Кааб 1] 
Медный Всадник р! Париж 
Третьяковская галерея || Мадрид 
иумфальная Ар — | Лондон 
| 
| 


п ще и. о 2. 


Количество п правильных ответов Е 


” Обновить. 


Рис. 6.7. Тест "Города и памятники" 


В сценарии используются три глобальные переменные. Переменная а хра- 
нит последнее выбранное значение в левом столбце; переменная а — вы- 
бранное значение правого столбца; значение переменной зим содержит чис- 
ло правильных ответов. В двух списках для правильной пары "вопрос/ответ" 
совпадают соответствующие значения параметра уа1ае. Эти значения про- 
веряются после выбора элемента списка правого столбца. Результат тестиро- 
вания можно посмотреть, если нажать кнопку Результат. 


Сценарий, реализующий простую обработку теста, представлен в листин- 
ге 6.9. 
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Форос во вос о о росс осо во ово ооовоо соо о осо о ооо ооо ооо вос оо рос во соо ооо ово ооо росс ооо во офо ооо осоо во ооо ооо ооо ооо ро вов ово сто» фоофооо ооо осо вос ооо ово ос ооо соот о соо росо осо осово осо» о ® 
. ИР °: г. -. . .*. ..® 


‚ Листинг 6.9: Простая тестирующая программа `` 


. На 
ооо со воо ооо оо ооо росе вон ооо ово ооо соо ооо оо © оо бо ооо ро но оо ооо ооо ооо ооо с оо ово ово оо вое овоо оо ооо ооо оо соо вос о ооо ооо ово оо а оо соо ово осо во соо ооо ооо ро ов осо ооо ооо осо соо во осо о ® 


<НТМГЬ> 
<НЕАО> 
<ТТТЬЕ>Города и памятники. (Зарубаева) </ТТТЬЕ> 
<$сг1ре> 
<!-- 
уаг зип=О 
уаг а 
уаг а 
Еопс&1оп еа() 
{ а=безе. адезЕ1оп.хуа1ае 
а=сез®.апзмег.уа]ае; 
1ЁЕ (а==а) зат +=1 
} 
Еапс®1оп гезо1* () 
{ аоситере. +е5®.гез.уа1ще=зим} 
//--> 
</зсг1рЕ> 
<ВООУ раскагоипа="Ёоп3.а91Е"> 
<р3 а11ап=сепег>Города и памятники</!3> 
<РОЁМ паще="$ез®"> 
<ТАВЬЕ Богаег=3 а119п=сепфег се11рааа91па=5 
се115$рас1пд=6 расо1ог= $11уег> 
<ТВ><ТН>Памятник</ТН><ТН>Находится в городе</ТН> 
<ТВ><тТО> ` 
<зе1есЕ $1хе =7 паще="с<аез$®1оп" 
опСрапае="а=$ез$* .ааез$&1оп.уа1ае"> 
<орЕ1оп уа]ае="таа">Музей Прадо<рт> 
<орЕ1оп уа]ае="Бег" >Рейхстаг<рг> 
<ор®*1оп уа1ае="и11">Оперный театр Ла Скала<ог> 
<орЕ1оп уа1ае="1ег">Стена Плача<рг> 
<ор*1оп уа1ае="пек">Священный камень Кааб<рг> 
<орЕ1оп уа1е="5рь">Медный Всадник<Ьг> 
<орЕ1оп уа]1ае="поз">Третьяковская галерея<рг> 
<орЕ1оп уа]1де="раг">Триумфальная Арка<рг> 
<орЕ1оп уа]ае="пем">Статуя Свободы<Юг> 
<ор&1оп уа1ае="1оп">Тауэр<рг> 
</зе1ес&> 
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</ТЬ> 
<Тр> 
<зе1ес® з127е=7 папе="апзмег" опСБапде="еа ()"> 
<орЕ1оп уа1ае="5рь">Санкт-Петербург<рг> 
<ор&1оп уа1ае="то$">Москва<рг> 
<орЕ1оп уа]ае="щек">Мекка<рг> 
<оре1оп уа1е="1ех">Иерусалим<6г> 
<орЕ1оп уУа]ае="и11">Милан<рт> 
<орЕ1оп уа1ае="раг">Париж<Ьтг> 
<ор®*1оп уа1ае="маа">Мадрид<ру> 
<орЕ1оп уа]ае="]оп">Лондон<ртг> 
<орЕ1оп уа1ае="пем">Нью-Йорк<Ьг> 
<ор&1оп уа1ае="рег">Берлин<рг> 
</зе1ес®> 
</То></ТВ> 
</ТАВЬЕ> 
<СЕМТЕВ><Р> 
<1праЕ Еуре="БоЕбеоп" уа1ае= "Результат" опс11ск="гезо1* () "><Ьг> 
Количество правильных ответов 
<1праЕ Еуре="$ехе" папе="гез" $12е="5"><Р> 
<1прие суре="гезее" уа]ае= "Обновить" опс11ск="5иаи=0"> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Цветовое оформление 
таблицы и ячеек 


Напишем сценарий, который позволяет выбирать цвет фона для всей табли- 
цы и ячеек и продемонстрировать, как будет выглядеть документ при раз- 
ном цветовом оформлении (рис. 6.8). 


Предположим, что для размещения картин в галерее требуется задать цвет 
фона стены и цвет рамок картин. В рассматриваемом примере с помощью 
выбора цвета фона таблицы и цвета фона ее ячеек задается та цветовая гам- 
ма, которая более удачно соответствует изображениям или вкусам пользова- 
теля. Выбор цвета фона таблицы и ячеек выполняется с помощью списка. 
Не предусматривается возможность задания для каждой из ячеек отдельного 
цвета. НТМГ-код документа, содержащего функции, выполняющие необхо- 
димые преобразования, имеет вид, представленный в листинге 6.10. 
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'Изменяемые п: параметры - 


рае телам клык АИ рать вы асваельль 


' Введите значения параметров 


ТИ Толщина рамки 
10 Расстояние между ячейками 
ро Поля внутри ячейки 


"Листинг 6. 10, Цветовое оформление таблицы и ячеек. 


НВ бопроово ооо оо оо вноо вос о © бов оо ино сново ооо оо во о о оао носовое ооо 4 ооо ово о соо ово оостофево ис о во ово ото во оо вос о вос оо бро осо ра ро оо фотонов о ооо вое о во чо оо о фо восасо вос ово со вое сво оо осо 5 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Таблицы, цвет фона всей таблицы и отдельной ячейки</ТТТЬЕ> 
<$сг1рЕ> 
<!-- 
ЕопсЕ1оп гзеф (о) } 
{ аосчмепе.а11 ("1$аЪ") .59Со1ог="$11уег" 


Чосимепе.а11 ("1$ар1") .659Со1ог="агау" 


Аосчщепе.а11 ("1$ аЪ3З" 
Зосцмепе.а11 ("1$ аЪ4" 
Яосопепе.а11 ("1$ар") .Богаег=1 
Чосимеп®.а11 ("1$аЪ") .се115брас1па=10 
Чоситепе.а11 ("1$аЪ")} .се11Рааалпа=20 
ор] .Бог.уа]ае=1 


) 

Зосимепе.а11 ("1+а62") .раСо1ог="дгау" 
).БаСо1ог="агау" 
) 


.раСо1ох= "агау" 


\ 


оЬ] .се11$.уа1ае=10 
ор .се11р.уа1це=20 
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ЕапсЕ1оп ах (06),м) 
{ аосомепе.а11 ("16аЪ") .БаСо1охг= ( (о5] .е1етепе$ [5] ) [м] ) .ехё } 
РипсЕ1оп агсо1 (95), м) 

{ аосимеп*.а11 ("1$аЪ1") .59Со1от= ( (05) .е1етепез[5]) [п] ) .Еехе 
Чосимеле.а11 ("1$ аф2") .БаСо1ог-= ( (оЪ) .е1етеп*$[5]) [п] ) . Еехе 
Аосцмепе.а11 ("1$аЪЗ3") .БаСо1охг= ( (05) .е1етепЕ$ [5]) [м] ). ехе 
аосопепе.а11 ("1$аЪ4") .Ю3Со1от= ( (0р] .е1етепез[5]) [м] ). ЕехЕ 

| 

ЕопсЕ1оп зе*%(оЪ7) 

{ аосамепе.а11 ("1$ аф") .Богаег=Матфег (057 .рог.уа]1щае) 

1ЁЕ (о5).се11$.уа1]ае != "") 
Чосишепе.а11 ("16ар").се115рас1па=№лиюег (051 .се11$.\а1ие) 
1Е (05).се1П1р.уа]ае != "") 
аосчмепе.а11 ("16аЪ") .се11Рааа1па=Миптег (о) .се11р.ха]ле) 
} 
« //--> 
</зсг1ре> 
</НЕАО> 
<ВООУ 19="аос"> 
<ТАВЬЕ Богаег=2 Баскагоцпа="Еоп3 .91Е"> 
<ТВ><тТо а11дп=сепеехг><В>Изменяемые параметры</В></ТО>. 
<ТР а11дп=сепбег><В>Цвет фона всей таблицы 
и отдельной ячейки</В></Тр> 
</ТВ> 
<ТВ> 

о <ТР уа1]1ап=®ор> 
&прзр;<Введите значения параметров 
<ГОЁКМ папе="Еогт1"> 

&прзр;<1приё буре="Еехе" 512е=8 паше=Бог ха]1пе=1> 
Толщина рамки<рг> 

&прзр;<1приЕ вуре="$ехе" $17е=8 паме=се11$ уа1ае=10> 
Расстояние между ячейками<рг> — 

&прзр;<1прие суре="техе" з312е=8 паме=се11р уа1ае=20> 
Поля внутри ячейки<рг><Ьг> 

<СЕМТЕВ> 
<1прие суре="раЕвоп" уа1ае="Просмотр" опс11ск="зеф (ЁЕоги1) "> 
<1прие суре="гезее" уа]пе="Обновить" 

опс11ск="г5еф (Еогп1) "><рг><рг> 
</СЕМТЕВ> 
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<ТАВЬЕ рогаег=1 а11ап=сепеег раскагоицпа="Ёоп1.)ра"> 
<ТВ><ТО со1зрап=2? а11дп=сепеех>Цвет фона</ТО></ТВ> 
<ТВ><ТР а11ап=сепкег>таблицы</ТО> 
<ТО а119п=сепеег>ячейки</ТО></ТВ> 
<ТВ> 
<ТЬ а11ап=сепфехг уа11ап=еор> 
<зе1есе паме= со] $12е=1 


опСпапае="ат (Еогт1 , Еотт1 .со]1.уа]1ае) "> 


<оре1оп 
<орЕ1оп 
<оре1оп 
<оре1оп 
<ор*1о0п 
<ор®1оп 
<ор1оп 
<орЕ1оп 
<орЕ1оп 
<орЕ1оп 
<орЕ1оп 
<орЕ1оп 
<ор®*1оп 
<орЕ1оп 


<орЕ1оп 


уа1ие=0 >геа 
уа]ае=1>агееп 
уа1ае=2>51аск 
уа1це=З>магооп 
уа]це=4>дгееп 
уа]\1е=5>011уе 
уа]ле=6>паху 
уа1ае=7>раг]е 
\уа1це=8>{еа1 
уа1це=9>агау 
уа1ае=10 зе1есфеа>$11ует 
уа1ае=11>уе11ом 
уа]1ае=12>51ае 
уа]ае=13>Еасй$1а 
уа]л1е=14>и11е 


</зе1есЕ> 
</ТО> 
<ТО а11ап=сепеег уа11ап=®ор> 
<зе1есЕ паме= со1со1 $312е=1 
опСвапае="дгсо1 (01101, Еоги1.с01со1 .\а1ае) "> 


<оре1оп 
<оре1оп 
<орЕ1оп 
<оре1оп 
<орЕ1оп 
<орЕ1оп 
<оре1оп 
<орЕ1оп 
<орЕ1оп 
<оре1оп 
<оре1о0оп 


уа]це=0>геа 


уа1ле=1>дгееп 


уа]1ае=2>Ъ]аск 
уа1ае=З>тагооп 

уа]ще=4 зе1есфеа>агееп 
уа1це=5>о11уе 
уа1ле=6>пахуу 
уа1це=7>рог1е 
уа1ие=8>теа]1 
уа]ае=9>дгау 
уа1ае=10>5$11уег 
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<ор®*1оп уа1ае=11>уе11о0м 
<оре1оп уа1ае=12>51ае 
<ор&1оп уа1ае=13>Еаср$1а 
<оре1оп уа1ае=14>ир1те 
</зе1ес+> 
</ГОВМ> 
</Тр> 
</ТВ> 
</ТАВЬЕ> 
</Тр> 
<Тр> 
<ТАВГЕ 1Аа="1$аб" Богаег=] се115$рас1п9=10 се1]рааа1пта=20 
Басо1ог=$11\мег а11ап=сепеег> 
<ТВ> 
<ТР 1а="16аЪ1" радсо1ог=агау> 
<А ргеЕ="Р1.)рд"> 
<ТМС згс="Р1.7]ра" Богаег="0" млабр="150"></А></ТО> 
<ТР 19="1$ар2" Басо1ог=дгау > 
<А ВгеЕ="Р2.1]ра"> 
<1Мб згс="Р2.)рд" Богаег="О"изаев="150"></А></ТЬ> 
</ТВ> 
<ТВ> 
<ТО 149="1$аЪ3" расо1ог=дгау> 
| <А ргеЕ="РЗ.)рд"><1ТМС эгс="РЗ.)ра" 
Богаег="0" м1аёв="150"></А> 
</ТО> 
<ТО 1а="1{$ар4" Бдсо1отг=дгау> 
<А ВгеЕ="Р4.)ра"><1МС згс="Р4.3рд" 
Богаег="0" млар="150"></А> 
</ТЬ></ТВ></ТАВЬЕ></ТЬ></ТВ> 
</ТАВЬЕ> 
</ВорУу> 
</НТМЬ> 


Выравнивание изображений 


Напишем сценарий, который позволяет указывать значения параметров го- 
ризонтального выравнивания для трех изображений, расположенных в до- 
кументе. После выбора значения параметров следует нажать кнопку Про- 
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смотр, чтобы просмотреть документ при разных вариантах выравнивания. 
На рис. 6.9 представлен документ с выбранными параметрами горизонталь- 
ного размещения. 


Е] Расположение изображения относительно строки - Мисозой риетле\ ЕхрИогеи | 17) 


Файл. _Правка_ Виа _Избранное _ Сервис _ Справка ^- ат. В ый 


ОИ ее лили —\а м в д а а а аа аа де о дааа илл лаз земля дах м Ч 


Расположение изображения относительно строки 


Для трех используемых изображений выберите значение параметра 
выравнивания ацел и нажмите кнопку Просмотр. 
_Вы увидете как располагаются изображения в тексте. 


5 1 
} 
| 
| 
| 


расположение изображения относительно строки текста. 


этом случае изображение является обычным злементом строки. 


Я ЧИ НЫ ЫЬЫМЫ НЫЕ УЧЕНИК ОМКМИИКНЬ ОНО ло Ыб кимосоивь 


Рис. 6.9. Расположение нескольких изображений в тексте 


В верхней части документов в таблице расположены рисунки и списки для 
выбора значений параметров выравнивания. При нажатии кнопки Просмотр 
изменяется расположение трех изображений относительно друг друга и тек- 


стовой строки. Код НТМЕ для данного документа представлен в листин- 
ге 6.11. 


7 Зак. 834 
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Листинг 6. 44; Горизонтальное: выравнивание: трех. изображений в строке _ 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Расположение изображения относительно строки</ТТТЬЕ> 
<$сг1р®> 
<!-- 
уаг К1="ТОР". 
уаг К2="ТОР" 
уаг КЗ="ТОР" 
Еопсе1оп зе%К(1) 
{ уаг К 
уаг ор)=еуа1 ("Ёогм"+1) 
1Е (((о5).е1емере$ [0]) [0] 
ор) .е1етепе$ [0]) [0] 
1Е (((ою).е1емепёз[0]) [1] 


. 5е1есфеа) 
.ха]лае 

. зе1есфеа) 
ор) .е1етепе$ [0]) [1]) .уа1ае 
оЬ7.е1етепЕз$ [0]) [2]).зе1есееа) 
. зе1есфеа) 
ор) .е1етепез[0]) [3]) .уа?чае 
ор) .е1етепе$ [0]) [4]).5е1есфея) 
оЬ) .е1етепе$[0]) [ .уа]1оае 


4 
оъ7 .е1етепе$ [0]) [5]).зе1есфея) 
5 


) 
) 
} 
) 
) 
оь7 .е1етепе$[0]) [2]) .уа1ае 
) 
) 
) 
) 
) 
).уа]1ае 


( 
( 
( 
( 
( 
(о) .е1емепе$[0]) [3] 
( 
( ] 
( ] 
( 
( ] 


ор] .е1етепе$ [0]) [ 


Еопсе1оп зе*() 

{ аоситепе.р1с®1.а119п=К1 
Чосимепе.р1се2.а11ап=К2 
Чосимепе.р1се3.а11ап=КЗ 

} 

//--> 
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</зсг1ре> 
</НЕАО> 
<ВОРУ Ьасо1ох="ЕВЕВЕЕ"> 
°  «СЕМТЕВ> 
<Н4 а11ап=сепбег>Расположение изображения относительно строки</Н4> 
Для трех используемых изображений выберите значение параметра 
выравнивания а110п и нажмите кнопку <В>Просмотр</В>.<Ьг> 
Вы увидете как располагаются изображения в тексте. 
<ТАВЬГЕ Богаег=2 рдсо1ог=$11уег> 
<ТВ> 
<ТО а11ап=сепеег><1МбС згс=р521.)ра м1аЕВ=50></тТо> 
<ТО а11ап=сепеег><1МбС згс=р522.41Е></ТО> 
<ТР а119п=сепЕег><1Мб згс=р523.91Е></ТО> 
</ТВ> 
<ТВ> 
<ТЬ><ЕОВМ паме="ЁЕогт1"> 
<зе1есе паме=зе]11 $1хе=1 опсрапде="зеек (1) "> 
<оре1оп уа1ае="$ор" спескеа>ТоР 
<орЕ1оп уа]1ае="ехЕЕор">ТЕХТТОР 
<орЕ1оп уа]1ае="и19а1е">МТООГЕ, 
<ор®е1оп \уа1пе="аЪ$и1991е">АВЗМТОРТЬЕ 
<ор®1оп уа]1ае="ро®фот">ВОТТОМ 
<орЕ1оп уа]1ае="аб5Бо*ком">АВЗВОТТОМ 
</зе1есЕ> 
</ЕОВМ></ТО> 
<ТО><РГОВМ папе="Еоги2"> 
<5е1есе паме=з$е12 $12е=1 опсрапде="зеек (2)"> 
<ор&1оп уа]ае="®ор" спескеа>ТоР 
<орЕ1оп уа1ае="$ехЕор">ТЕХТТОР 
<орЕ1оп уа]1ае="т19а1е">МТООГЕ 
<ор*1оп уа1ае="абзи1991е">АВЗМТООГЕ 
<ор*1оп уа1ае="роЕфотм">ВОТТОМ 
<орё1оп уа1ае="аЪбзБо*+от">АВЗВОТТОМ 
</зе1ес+> 
</ЕОВМ></ТО> 
<ТО><РГОВМ папе="Ёогт3"> 
<5е1есе паще=5$е13 $12е=1 опсвапае="зеек (3) "> 
<орЕ1оп уа]1ае="$ор" срескеа>ТорР 
<орё1оп уа]ае="Еехесор">ТЕХТТОР 
<орё1оп уа]1ае="и1аа1е">МТООГЕ 
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<орёзоп уа1ае="аБзт19а1е">АВЗМТОРЬЕ 
<орЕ1оп уа1ае="робом">ВОТТОМ | 
<оре1оп уа1ае="ар5ро® ом" >АВЗВОТТОМ 
</зе1есе> 
</ЕОВМ>< /ТО> 
</ТВ></ТАВЬЕ> 
<РГОВМ> 
<1прие Еуре="риаебоп" уа1ае= "Просмотр" опс11ск="зеё ()"> 
<1прае фуре="гезее" уа1ще="Обновить"> 
</ЕОВМ> 
</СЕМТЕВ> 
<ТАВЬЕ Богаег=2 расо1ог="#ЕРЕОСРС"> 
<ТВ><ТЬ> 
Параметры выравнивания 
<ТМс $згс=р521.)рд а119п=ТОР паще=р1с&1> задают 
<1Мс $згс=р522.41Е а11ап=ТОР паще=р1сЕ2> 
расположение изображения относительно строки текста. 
<1Мс $гс=р523.91Е а11ап=ТОР паще=р1с®3> 
В этом случае изображение является обычным элементом строки. 
</ТО></ТВ></ТАВГЕ> 
</вору> 
</НТМГ> 


Упражнения 


1. Напишите сценарий, который позволяет выбрать для таблицы и состав- 
ляющих ее ячеек либо цвет фона, либо фоновое изображение, либо и то 
и другое. Предусмотрите возможность задания своего цвета фона для ка- 
ждой ячейки. 


2. Напишите сценарий, который позволяет посчитать стоимость предпола- 
гаемой покупки. Задается список продуктов, цена за единицу товара и 
количество экземпляров. | 


3. Напишите сценарий, обрабатывающий результаты ответа на вопросы по 
теме "Работа с архивами". Вопросы и возможные ответы представьте в 
виде списков. | 


Вопросы и варианты ответов таковы: 

» Выделите те программы, которые являются архиваторами. 
$ АК] 
9 РКИР 
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© ГНА 
© КАК 
$ \МОКО 
е Для чего используются архивы? 
$ Для сжатия информации 
$ Для создания резервных копий 
© Для форматирования 
Ф Для хранения информации 
е Что может архиватор? 
* Добавлять файлы в архив 
$ Обновлять файлы в архиве 
$ Удалять файлы из архива 
°® Какие архиваторы позволяют создавать многотомные архивы? 
$ АК] 
$ РКИР 
$9 ГНА 
$ КАК 
е Основными характеристиками архиватора являются... 
$ Скорость работы 
$ Степень сжатия файлов 
$ Сервисные функции | 
е На что указывает расширение в имени файла? 
‚© На обрабатываемый архивный файл 
$ На используемую операционную систему 
$ На используемый архиватор 
$ На необходимую программу 
е Архивация — это... 
Создание архивной копии диска 
Упаковка данных 
Нанесение разметки на пустой диск 
Работа в архиве 
Извлечение файлов из архива 


&ё <*Ф <<< 


Ничто из перечисленного выше не верно 


Глава 7 


Фреймы 


Окно просмотра браузера можно разбить на несколько прямоугольных об- 
ластей, называемых фреймами. Области соприкасаются друг с другом и в 
каждую из областей можно загрузить отдельный НТМЕ-документ, и рабо- 
тать с ним независимо от документов, загруженных в другие области окна 
или фрейма. Между фреймами можно организовать взаимодействие, напри- 
мер, выбор ссылки в одном из фреймов позволит изменить содержимое 
других фреймов. Фреймы часто используются в случаях, когда возникает 
необходимость загрузить документ в одну из областей при работе в другой 
области, или когда следует отобразить информацию, которая должна посто- 
янно находиться на экране. 


Простая фреймовая структура 


Создадим документ, который разбивает область экрана на две части. Левая 
часть содержит оглавление разделов документа, который располагается в 
правой части. При выборе пункта оглавления в левой части появляется со- 
ответствующий раздел документа в правой части. 


Разобьем область экрана на два фрейма. Левый фрейм занимает 25% шири- 
ны всего окна и будет содержать оглавление разделов документа, который 
загрузим в правый фрейм. Пусть имя файла, содержащего оглавление — 
сощеп5.Вит, а имя документа — сН.Вит. Фреймовая структура задает способ 
организации экрана и определяет, какие документы должны быть первона- 
чально загружены во фреймы. Создать описанную фреймовую структуру 
можно, если использовать документ, содержащий НТМЕ-код, представлен- 
ный в листинге 7.1, а. 


| Листинг 7.1, а. Создание простой фреймовой структуры о |! 
<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Простая фреймовая структура</ТТТЬЕ> 
</НЕАО> 
<Егапезее со1$="25%,755"> 


<Егаще згс=сопЕепе$0.ПЕм паме=1еЕф> 
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<Егатше згс= сб.Рем паме=г190®> 
</Егатезе*> 
</НТМГ> 


Параметр со1з тега <ЁЕгащезек> имеет вид со1з=" список значений". В спи- 
ске через запятую перечисляются значения, которые определяют размеры 
фреймов. Список должен содержать не менее двух значений. Значения мо- 
Гут задаваться в процентах, в пикселах, в относительных единицах. 


Тег <Егаме> определяет один фрейм. Он должен располагаться внутри пар- 
ного тега <Егамезек> И </Егапезе%>. Число тегов <Ёгапе> должно совпадать 
с количеством тегов, определенных при описании фреймовой структуры. 
В рассматриваемом примере в теге <ЕхгашезеЕ со15="25%,75%"> определено 
два фрейма, поэтому в дальнейшем следует описание каждого из фреймов с 
ПОМОЩЬЮ Тега <Егаме>. | 


Значение параметра згс тега <Егаше> определяет адрес документа, который 
первоначально загружается во фрейм. В рассматриваемом случае в левый 
фрейм загружается документ с именем сомеп50.Вит, а в правый фрейм — 
документ с именем сп.Бил. В теге параметр папе определяет имя фрейма, 
необходимое для указания, в какой фрейм загрузить документ. Если имя 
фрейма не задавать, то будет создан фрейм без имени, но сослаться на него 
из других фреймов будет нельзя. 


Связь между фреймами и документами для описанного примера изображена 
на рис. 7.1. 


Фреймовая 


Оглавление структура Документ 
сощеп($.Рт СП. т 


Рис. 7.1. Связь между фреймами и документами 


Файл сп.ВИип содержит так называемые внутренние ссылки, т. е. разбит на 
четыре части. В документе описаны различные способы выравнивания тек- 
ста, заголовка и горизонтальной линии. Вид документа приведен на рис. 7.2. 


Перед заголовком, поясняющим действие параметра при выравнивании по 
левому краю, написан тег <А паме=срареег_1></А>, Помечающий начало 
раздела. К. этому разделу можно осуществить переход, например, по ссылке 
Возврат, заданной следующим образом: 


<А пгеЁ="#срареег 1">Возврат</А> 
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ЕТ С: \Мои документы СВ. В - Мистозой 1оенле! кре 


ких. Ах ИАТА 


Файл Правка. Ва Избранное ‚Сервис _Справка_ 


Выравнивание по левому краю 


Выравнивание по левому краю предполагает, что начала строк 
находится на одном уровне, аконцы - на разных. Между 
словами равные промежутки. Поскольку выравнивание по 
левому краю задается автоматически, то атрибут айрл-еЁ 
МОЖНО ОПУСТИТЬ. 


Выравнивание по правому краю 


Выравнивание по правому краю предполагает, что концы — 
| строк находятся на одном уровне, а начала - на разных. Между ый 


п” хоре оомжаитяулякьн стр к чехлах машы доли 


1 ЕТ Мой к компьютер - 


Рис. 7.2. Содержимое документа сп.Шт 


НТМГ-код документа, представляющего оглавление, которое загружается в 
левый фрейм, представлен в листинге 7.1, 6. 


ооооово ое 9 о обе ооо ооо ооо чо ооо соо соо вос сосоо вос ооо соо очооволов зоо ооо ооо о ооо оно о о ово ооо ооо чото оо соо ооо оо соо ооо чо со ооо оочооо о ос чооово стос соо оо оп ос ооа о вос оо оо носа оспосоовостсоо < 
° . . . . . 


: Листинг 7.1, 6. Содержимое документа сог(еп!$0.Вёт 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Ссылки внутри документа</ТТТЬЕ> 
</НЕАО> 
<ВОРУ Баскагоипа="аесог.41Е" Ьасо1ог=$11уег> 
<р4 а11дп=сепфег>Выравнивание</14> 
<А пгеЁ="ср.Пем#спареег 1" фагдеф=г1а9йе>по левому краю</А><рг> 
<А ргеЕ="сп .рещ#срареег 2" фагдее=г19йе>по правому краю</А><Ьг> 
<А ВгеЕ="сп .рем#свареег 3" багдек=г190е>по центру</А><Ьг> 
<А ПгеЕ="сп.Реп#свареег 4" фагдеф=г19вЕ>по ширине</А><Ьг> 
</ВОБУ> 
</НТМЬ> 


Ссылка устанавливается на соответствующий раздел документа заданием 
параметра вгеЕ="сь.ВЕм#свареехг_1". К каждой из частей осуществляется 
переход по ссылке из оглавления, расположенного в левом фрейме. 


Параметр кагдее определяет имя фрейма, в который загружается документ, 
на который установлена ссылка. В рассматриваемом случае это фрейм с 
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именем главе. По умолчанию или при отсутствии параметра +ахгдее доку- 
мент загружается в текущий фрейм или окно. На рис. 7.3 представлен доку- 


мент, имеющий описанную фреймовую структуру. 


Е] Простая фреймовая структура - МасгозоН |обегпе! Ехрюгея 


| _ Файл. 


_ Правка. Е Вид. _ Избранное. "Сервис | Справка аа 


Выравнивание по правому краю 


по левому раю : м 
‘поп вот пекраю | ВЕ р 
_ По центру”. - : т в | 


Выравнивание по правому краю 
предполагает, что концы строк находятся на 
одном уровне, а начала - на разных Между 
словами равные промежутки. Этот прием 
применяется на практике с целью создать 
оригинальный дизайн. 


Центрир ование текста 


а на _Оуществует и несколько способов 


СЕ Мой ‘компьютер 


Рис. 7.3. Документ, имеющий фреймовую структуру 


ААА око роооклаикАко ли ола лат мгла ох 


а 
и 
. 


Для всех ссылок в документе с именем сощет.Пит указано одинаковое 
значение параметра +агде+. Если все документы, загружаемые по ссылкам, 
должны загружаться в один и тот же фрейм, то можно задать параметр 
фахгдее в теге <вАЗЕ>. В этом случае НТМГ-код файла, содержащего оглав- 


ление можно описать так, как указано в листинге 7.1, в. 


отобооо во ооо ов оо вое чо во озоссросо во о оса осо овоо ово чото © 9 Во о ро о оне тор ооо оо чо ово оо оо стос ооо поно о о ов ооо оо ооо о ооо сос ос ооо соо чево осо с ооо оо втевово 


<НТМГ> 

<НЕАО> 
<ТТТЬЕ>Ссылки внутри документа</ТТТЬЕ> 

</НЕАР> 

<ВОРУ Баскагоспа="Ааесог.а1Е"  Басо1ог=51]уег> 
<Базе фагдеф=г1аве > 
<А памше=спареег 0> </А> 
<р4 а119п=сепЕег>Выравнивание</в4> 
<А пгеЕ="ср.Веи#спареег 1">по левому краю</А><рг> 


фсовоа во ооо в осо чоо вое во с оное сосовац, 
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<А ВгеЕ="сЬ .реп#свареехг 2">по правому краю</А><рг> 
<А НгеЕ="ср.рем#свареег 3">по центру</А><рг> 
<А НгеЕ="ср.Бем#свареег 4">по ширине</А><рг> 
</ВОрУ> 
</НТМЬ> 


Фреймовая структура 
с загружаемыми документами 


Создадим документ, левая часть которого представляет оглавление, а в пра- 
вую часть загружаются документы выбранного пункта оглавления. Докумен- 
ты, соответствующие пунктам оглавления, хранятся в разных файлах. 


При решении задачи экран по-прежнему разбивается на два фрейма. Левый 
фрейм занимает 30% ширины всего окна и будет содержать оглавление доку- 
ментов, которые могут быть просмотрены пользователем при выборе соответ- 
ствующего пункта. Правый фрейм занимает большую часть окна просмотра и 
предназначен для отображения самих документов. При первоначальной за- 
грузке оба фрейма делят окно просмотра по вертикали в соотношении 30% и 
70%. Данное соотношение может меняться при просмотре. Каждый из фрей- 
мов имеет свою полосу прокрутки, обеспечивающую просмотр всего докумен- 
та. При выборе ссылки в левом фрейме соответствующий документ будет за- 
гружен в правый фрейм. Такая структура позволяет одновременно видеть на 
экране и оглавление документов, и сами документы. 


Пусть оглавление документа содержит шесть пунктов и располагается в 
файле с именем сощепе.Нит. Требуется, чтобы файл, содержащий оглавле- 
ние, загружался в левый фрейм. Файлы с именами сН1.Пип, сп2.Вит, ..., 
снб.Нип содержат документы, соответствующие пунктам оглавления. Взаи- 
модействие между фреймами и документами представлено на рис. 7.4. 


Документ 
СИЛ. Пт 


Фреймовая 


Оглавление структура 
сощетщ$. т 


сИ2.П т 


сиб. Пт 


Рис. 7.4. Фреймовая структура с загружаемыми документами 
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Фреймовая структура мало отличается от той, какая была рассмотрена В 
предыдущем примере (листинг 7.2, а). 


| Листинг 7.2, а. Задание фреймовой структуры: _ — 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Простая фреймовая структура</ТТТЬЕ> 
</НЕАО> 
<Егатезее со1$="30%,70%"> 
<ЁЕгаше згс=соп$епе$.Пем пащме=1еЕ®> 
<Егаше эгс=епр®у. Па патме=г1арве> 
</Егапезее> 
</НТМГ> 


В правый фрейм первоначально загружается файл с именем етриу.Пит. Если 
сразу неизвестно, какой файл загружать во фрейм, то можно использовать 
файл, содержащий НТМГ-код (листинг 7.2, 6). 


О О А ВВ В В ВЕВ В оторороссорососооооовотооо < 
. .^ - . 


| Листинг 7. 2, 6. Документ для первоначальной загрузки” 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Пустой документ</ТТТЬЕ> 
</НЕАО> 
<ВОПУ> 
</вВорУу> 
</НТМЬ> 


В левый фрейм помещается оглавление, которое содержит ссылки на доку- 
менты, расположенные в различных файлах. Оглавление может быть сфор- 
мировано так, как указано в листинге 7.2, в. 


Листинг 7.2, в. Оглавление, загружаемое в левый фрейм. 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Оглавление</ТТТЬЕ> 
</НЕАО> 


<ВОРУ раскагоцпа="Аесог.а1Е" расо1ог=$11уег> 
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<Базе Еагдеф=г1ав&> 
<13>Оглавление</13> 
<ОТ> 
<11Т><А пгеЕ="ср1 .Вещ">Основы языка НТМЬ </А> 
<Г1Т><А ВгеЕ="сВ2.В&т">Графика </А> 
<ГТ><А ргеЁ="ср3 .Пм">Изображение-карта </А> 
<1Т><А ргеЁ="ср4.В%м">Списки </А> 
<Г1><А ВгеЕЁ="св5.Бт">Таблицы </А> 
<ЬТ><А ргеЁ="ср6.Вем">Фреймы </А> 
</ОТ> 
</ВорУ> 
</НТМТ> 


Во многих случаях при начальной загрузке в файл помещают страницу с 
титульным листом, как в случае, представленном на рис. 7.5 


остая фреймовая структура - МисгозоН |п(етеЕ Е хрогег 


| 95 Правка Вид Избранное — Сервис 


ложь ее с А ААА же сли А Ааа Ам ДА лая каж ола Вл ое 


Оглавление 


Основы языка 
НТМТ. 
Графика 
Изображение-карта | „ 

Электронная версия учебно-методического 
Списки 
Таблицы 
Фреймы 


пособия 


Рис. 7.5. Документ со стартовой страницей 


При описании фреймовой структуры в этом случае следует для правого 
фрейма задать адрес файла с титульной страницей. При выборе пункта 
меню в левом фрейме соответствующий документ появляется в правом 
фрейме. 
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Фреймовая структура с раскрывающимся 
оглавлением одиночного пункта 


Создайте документ, левая часть которого представляет оглавление, а в пра- 
вую часть загружаются соответствующие оглавлению документы. Преду- 
смотрите возможность "раскрытия" пунктов оглавления и перехода к доку- 
ментам по подпунктам. 


Предположим, что в левом фрейме представлено оглавление, содержащее 
пункты верхнего уровня. Требуется при щелчке по пункту оглавления рас- 
крыть список подпунктов и предусмотреть возможность перехода к соответ-. 
ствующему подпункту разделу документа. Такого рода задачи решаются раз- 
ными способами. Рассмотрим простые решения. 


Для каждого пункта меню создадим документ, в котором соответствующий 
пункт меню "раскрыт". Имена документов сопИ.Вит, соп2.Пит, ..., 
сошб.пит. Документ с именем сот5.Вит содержит оглавление с подпункта- 
ми пятого пункта основного оглавления. При выборе соответствующего 
подпункта происходит переход к соответствующему разделу документа с 
именем сН5.пит. НТМГ-код документа сошо.пипт имеет вид, представленный 
в листинге 7.3. 
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Листинг 7.3. Оглавление с раскрытым пунктом 5_ 


‹ 
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<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Оглавление с раскрытым пунктом 5</ТТТЬЕ> 
</НЕАО> 
<ВОПУ Баскагоипа="аесог.а1Е" Басо1ог=$11уехг> 
<разе сагдеф=г1а90е> 
<р3>Оглавление</в3> 
<ОГ> 
<ГТ><А ргеЁ="ср1.В+м">Основы языка НТМЬ </А> 
<ГТ><А ргеЕ="срЬ2.Вм">Графика </А> 
<ГТ><А ргеЁ="ср3З.Вем">Карта-изображение </А> 
<Г1><А ргеЁ="сЬ4.Б&м">Списки </А> 
<ГТ><А ПгеЕ="ср5.Бем" 
опс11ск="6ор.1еЕЁф.1оса®1оп=' сопеепе$В.ПЕт'">Таблицы </А> 
<91> 
<ГТ><А пгеЕ="ср5 .реш#5св 1">Простые таблицы</А> 
<ГТ><А ргеЁ="св5.Вещ#5сп 2">Данные внутри таблицы</А>_ 
<ГТ><А пгеЕ="ср5.В6п#5сп 3">Вложенные таблицы</А> 
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</01> 
<Г1><А ВгеЕ="сьб.р">Фреймы </А> 
</О01> 
</ВОорУ> 
</НТМт> 


В документе сп5.Лит расположены теги, отмечающие те разделы, к которым 
в дальнейшем можно обратиться по соответствующему подпункту: 


<А пате=5сп 1></А> 
<А паме=5сп_2></А> 
<А паше=5сВ 3></А> 


В рассмотренных примерах страница разбивалась на два вертикальных 
фрейма: левый с именем 1ег+ и правый с именем г1аве. Фреймы образуют 
иерархическую модель объектов Егаме. На верхнем уровне расположен объ- 
ект кор, являющийся родителем двух описанных фреймов. Для ссылки на 
фреймы можно использовать имена. Для того чтобы сослаться на левый 
фрейм, следует указать конструкцию +ор.1еЁ+. Аналогично, для ссылки на 
правый фрейм — +ор.г1аве. Свойство фрейма 1осаф1оп определяет ОВГ- 
адрес загруженного во фрейм документа. При выполнении присваивания 
фор. 1еЕе.1осаф1оп='сопеепезВ.Н&ю' во фрейм с именем 1е=+е загружается 
файл с именем 'сопеепезв.Вем' из текущей папки. 


Вид документа с "раскрытым" пунктом меню после перехода по ссылке изо- 
бражен на рис. 7..6. 


17% Простая Фреймов 
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Основы языка НТМГ, 


Графика 
Карта-изображение 
Списки 
Габлицы 
о Простые таблицы 
© Данные енутри 
таблицы 
о Вложенные 
таблицы 
Фреймы 


ль цапли 


`В языке НТМГ. таблицы используются в двух 
случаях. 


® Для представления числовых данных, 
разбитых по строкам и столбцам; 


» Как средство форматирования \!еЬ- 
страниц, задания взаимного 
расположения элементов страницы. 


Рис. 7.6. Пример оглавления с раскрытым пунктом меню 
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После щелчка мышью по основному пункту меню, подменю "сворачи- 
вается". Реакция на событие опс11ск — загрузка в левый фрейм файла, со- 
держащего основное меню, т. е. меню с именем сощет5К.Вит. При щелчке 
по пункту меню Таблицы в основном меню происходит загрузка в левый 
фрейм файла соп5.сИт. Когда пункт меню раскрыт, можно осуществлять 
переходы по подпунктам к соответствующим разделам документа. 


Для ссылки на фреймы страницы можно использовать свойство-массив 
Егапез объекта сор, в котором содержатся ссылки на все фреймы страницы. 
В рассмотренных примерах на фреймы можно было сослаться следующим 
образом: 

фор. Егамез [0] 

сор. Егатез [1] 


Фреймовая структура с раскрывающимся 
оглавлением всех пунктов 


Создадим документ, разбивающий окно просмотра с помощью фреймов на 
две прямоугольные области: левую и правую. В левой области поместите 
оглавление в виде списка, в правом — документ, загруженный в соответст- 
вии с выбранным пунктом оглавления. Предусмотрите возможность работы 
в режиме, когда пользователь может "раскрыть" или "свернуть" одновремен- 
но все пункты оглавления. 


При решении задачи поступим следующим образом: создадим два оглавле- 
ния, одно содержит только пункты верхнего уровня, т. е. "свернутое" оглав- 
ление, а во втором оглавлении все пункты раскрыты. В обоих документах 
предусмотрены кнопки, при нажатии которых меню "сворачивается" или 
"раскрывается". Приведем пример основного оглавления (листинг 7.4). 


Листинг 7.4. Основное оглавление — | | 
<НТМЬ> 
<НЕАБ> 
<ТТТЬЕ>Основное оглавление</ТТТЬЕ> 
<$сг1ре> 
<!--// 
РорсЕ1оп сВсопе (п) 
{ 1Е (п==1) 
фор. 1е{е.1оса®1оп="сопЕепе$ .Вм" 
е15е 


фор.1еЕф.1осаЕ1оп="соп®а11.В м" 
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//--> 
</зсг1ре> 
</НЕАО> 
<ВОРУ расКагоипа="аесог.а1Е" расо1ог=511уег> 
<разе фагдеф=г1аре > 
<ЕОЁВМ паме=Ёотгт1> 
<1прае буре="раеЕоп" уа1ае= раскрыть опс11ск="сВсоп® (0)"> 
<1праЕ Еуре="БаЕФоп" уа1ие= свернуть опс11ск="срсоп® (1)"> 
</ЕОВМ> 
<НЗ>Оглавление</НЗ> 
<ОТ> 
<ГТ><А пгеё="ср1 .пем">Основы языка НТМЬ </А> 
<Ь1><А ВгеЁ="сь2.Б&п">Графика </А> 
<Г1Т><А ргеЁ="сь3 .Н&м">Карта-изображение </А> 
<ГТ><А ргеЕЁ="сЬ4.БЕт">Списки </А> 
<ГТ><А ргеЁ="св5.Би">Таблицы </А> 
<ГТ><А ВгеЕ="сЬ6.Вет">Фреймы </А> 
</ОТ> 
</ВОрУ> 
</НТМ!> 


ея а ани окна еянит 
д: 


Правила описания фреймое 


‚ свернуть _ 


‚ раскрыть. 


Фреймовая структура определяет только 
способ организации экрана с фреймами и 
указывает, где находится начальное 
содержимое каждого кадра. Для всех кадров 


Оглавление 


1. Основи языка НТМГ 


. т ни должны быть заданы адреса, описывающие 
--араметре И местонахождения данных Как правило на 
АНАЧЕННЯ. странице с фреймовой структурой нет 

© Структура содержимого кадров. Такая страница 
покумента обычно невелика, описывает только 

о Форматирование маирование фреймовую структуру экрана. Для описания 
документа структуры фреймов используются теги 

2. Графика <ЕКАМЕЗЕТ>, <ЕКАМЕ>, <ЧОЕКАМЕЗ>. 

© Фоновые 0 

изображения | Тег <ЕРАМЕЗЕТ> 


о Встраиваемые 
изображения 


р | „ Фреймы определяются в структуре, 
о Выравнивание т . 
=ыРАвнивание „|| “`` нозываемой ЕКАМЕЗЕТГ, — которая 


Рис. 7.7. Оглавление в "раскрытом" виде 
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Функция сВсоп+ () в зависимости от значения параметра загружает в левый 
фрейм одно из двух оглавлений. На рис. 7.7 приведен пример, когда оглав- 
ление раскрыто и в правый фрейм загружен соответствующий выбранному 
подпункту документ. | 


Функция свсоп+ () присутствует в двух документах, содержащих оглавление. 


Фреймовая структура 
из трех фреймов 


Создадим документ, разбивающий окно просмотра с помощью фреймов на 
три прямоугольные области. Левая область состоит из двух частей: в верхней 
части должны быть расположены кнопки, управляющие видом оглавления, 
в нижней части — само оглавление в свернутом или развернутом виде. Пра- 
вая часть обязана содержать собственно документ, соответствующий вы- 
бранному пункту оглавления. | 


При решении этой задачи будет сформирована фреймовая структура более 
сложного вида, чем та, которую рассматривали ранее. Документ делится по 
вертикали на две области. Левая область, в свою очередь, разбивается с по- 
мощью фреймов по горизонтали еще на две части. Параметр 
хоиз=" список значений" задает количество и размеры фреймов по горизон- 
тали. При решении нашей задачи определим для верхнего фрейма 60% вы- 
соты окна просмотра и 40% — для нижнего. Фреймовая структура описана в 
листинге 7.5. 


зоооооооо ооо оо нооо ооо о ооо снос ооо ооо ооо со ооо ото вооон оо ро носов ооо ор оо в ооо оно ооо о ро ооо осо о ооо ро о о она оо ооо ооо соо ное оо ооо оо чо оо оо то во соо ото о фо соо оон оовооосото о «< 
. * 


: Листинг 7.5. Задание фреймовой структуры из трех фреймов 


<НТМЫ> 
<НЕАР> 
<ТТТЬЕ>Три фрейма и раскрывающееся оглавление</ТТТЬЕ> 
</НЕАО> 
<Егамезее со1$="32%,*"> 
<Егацезее гом$="60, *"> 
<Егаше згс=Ба®.Рем паме=еор1еЕ®> 
<Егаше згс=соп®еп®$.Пем паще=1еЕф> 
</Егащезеф> 
<Егаше згс=$фаге.Пем паме=г1айе пага1лпи1аер=1> 
</Егатезее> 
</НТМГ> 
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п ее. лжи 


‚ раскрыть |. свернуть | 


Математическая логика 


: ` Теоретическая часть. 
|.®- 'Введение- о а НЕ. | 

-#.  Представланыв зима ‚.] Автоматизация процесса поиска решении 
| »_ Логическое. следствие . —_ — 
|. Нормальные | о 

| » Извлечение новых х знаний’: 

|». „Построение доказательства . 
_® Этапы «решения задачи. -” = в 


Рис. 7.8. Документ с кнопками управления видом оглавления 


В левый верхний фрейм загружается документ, содержащий описание кно- 
пок и действий при щелчке по этим кнопкам. НТМГ- код документа имеет 
ВИД: 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Кнопки раскрывающегося меню</ТТТЬЕ> 
<5сг1рЕ> 
<!--// 
Еорсе1оп сРсоп (п) 
{ 1Е (п==1) 
фор.1еЕ®.]1оса®1оп="соп еп $ .В м" 
е15е 
Сор.1еЕф.1осаЕ1оп="соп$а11.6&м" 
} 
//--=> 
</зсг1рЕ> 
</НЕАО> 
<ВОБУ> 


<ВООУ Баскагочпа="Аесог.а1Ё" Басо1ог=$11]уег> 
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<ГОВМ паме=Ёотт1> 
<1приЕ фуре="Баекоп" уа]1ае= раскрыть опс11ск="срсоп® (0)"> 
<1приЕ Еуре="БаЕеоп" уа]пае= свернуть опс11ск="свсоп® (1)"> 
</ЕОВМ> 
</ВОПУ> 
</НТМГ> 


В левый нижний фрейм загружается оглавление. Первоначально это файл, 
содержащий нераскрытое оглавление. В правый фрейм загружается файл, 
содержащий титульный лист. На рис. 7.8 представлен документ, соответст- 
вующий описанной структуре. 


Обмен содержимым фреймов 


Создайте документ, разбивающий окно просмотра с помощью фреймов на 
три прямоугольные области. Верхняя область содержит два фрейма, нижняя 
область состоит из одного фрейма. В нижней области располагается кнопка, 
которая обменивает содержимое верхних фреймов. 


Область окна просмотра сначала разбивается на два фрейма по горизонтали. 
При описании тега <Егамезее гоиз="*, 50"> определяется, что размер ниж- 
него фрейма 50 пикселов, остальное пространство отводится под верхний 
фрейм. Верхний фрейм в свою очередь делится по вертикали на два фрейма, 
размеры которых заданы в процентах к области просмотра. НТМГ-код до- 
кумента, создающий описанную фреймовую структуру, выглядит так, как 
указано в листинге 7.6, а. 


 Листинг7.6, а. Три фрейма с кнопкой для обмена содержимого фреймов | 
<НТМЬ> 
<НЕАО> | 
<ТТГТТЕ>Три фрейма с кнопкой для обмена</ТТТЬЕ> 
</НЕАР> 
<Егатезее гом$="*, 50"> 
<ЕгапезеЕ со1$="55%$,45%"> 
<Егате згс=1р1с®.Вм паме=1еЕх> 
<Егаме згс=геехе.пем паше=г1аре> 
</Егтащезе+> 
<Егаше згс=ра®1.0ем паме=рое®> 
</Егащезее> 
</НТМЬ> 
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Для ссылки на фреймы будем, как и ранее, использовать имена. Сначала 
следует запомнить имя файла, загруженного в левый фрейм. Для этого ис- 
пользуется переменная 1. Затем в левый фрейм загружается документ, рас- 
положенный в правом фрейме. Это достигается выполнением оператора 
присваивания | 


фор.1еЕ®.1оса®1оп=еор. г1апе. 1оса®*1о0п 


И, наконец, в правый фрейм загружается тот документ, адрес которого за- 
помнили в переменной 1. 


НТМЕ-код для нижнего фрейма представлен в листинге 7.6, 6. 


| Листинг 7.6, 6. Сценарий для нижнего фрейма - — | __ | 
<НТМГ> 
<НЕАР> 
<ТТТЬЕ>Кнопка для смены содержимого фреймов</ТТТЬЕ> 
<$сг1рЕ> 
<!--// 
ГорсЕ1оп СсРЕгапе () 
{ уаг 1=6ор.1еЕ®.1оса®1оп 
сор.1еЕЪ.1оса®1оп=$ор.г1ар®.1оса®1оп 
сор. г1аре. 1осае1оп=1 
} 
//--> 
_ </зсг1ре> 
</НЕАО> 
<ВОРУ раскагоипа="аесог.а1Е" расо1ог=$1]уег> 
<СЕМТЕВ> 
<ЕОВМ папе=Ёогт1> 
<1прие Еуре="роаЕ®оп" уа]ае=Обмен опс11ск="срЁгапе () "> 
</ЕОВМ> 
</СЕМТЕК> 
</ВОрУ> 
</НТМГ> 


На рис. 7.9 приведен документ с описанной фреймовой структурой. 


При щелчке по кнопке Обмен содержимое верхних фреймов поменяется 
местами. 


Глава 7. Фреймы 201 


Е] Три фрейма с кнопкой для з обмена - МисгозоН 1оеглей Е Ехо . 


| Файл. _Правка_ `В _Иобранное Сервис _ ораека 
— Мадонна Конестабиле —— _| В.Н. Березина, Н.А. Лившицу 


Ранняя работа Рафаэля "Мадонна 
Конестабиле" (1500) - характерное 
юношеское произведение мастера. В 
"Мадонна Конестабиле" уже в 

полной мере проявился 
художественный такт, чувство меры, 
свойственное Рафазлю. Молодой 
художник пока еще не может 

вложить в свое произведение столь 
сложнок содержание, как в свои 

зрелы творения, и разработать его 

так же богато и разнообразно, ноон 

не пытается прибегать к каким-либо - 
внешним эффектам. Нежна и скромна м 


и и А ДА лор мл ое лике "ок | че д лили 


|=] Готово р Мой компьютер 2 


Рис. 7.9. Обмен содержимым двух фреймов 


Функция, осуществляющая обмен содержимым фреймов, может быть опи- 
сана следующим образом: 
Еопс®1оп сРЕгаше () 
{ уаг 1=$ор.Егащез [0] .1оса®1оп 
Сор. Егапе$ [0].1осаЕ1оп=®ор. Егащез [1].1осае1оп 


сор.Егамез [1].1осае1оп=1 


Простой пример использования 
плавающих фреймов 


Браузер М!сгозой Пиегпеё Ехр]огег разрешает использование так называемых 
плавающих фреймов, описание которых может быть расположено в тексте 
обычного НТМЕ-документа. Для определения плавающего фрейма исполь- 
зуется тег <1Егаще>. В указанном теге могут встречаться те же параметры, 
что и в теге описания обычных фреймов, кроме параметра погезгте, т. К. 
размер плавающего фрейма не может быть изменен пользователем. Браузе- 
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и 


ры, не поддерживающие тег <1Егапе>, отображают записанную между тега- 
МИ <1Егаше> И </1Ехапе> информацию. В следующем примере НТМГ- 
документа используется описание плавающего фрейма, которое напоминает 
синтаксис тега встраиваемого в документ изображения. Параметр згс опре- 
деляет адрес загружаемого во фрейм изображения. Параметр паше задает 
имя фрейма для того, чтобы можно было получить доступ к фрейму, напри- 
мер, из сценария. 


Сценарий представлен в листинге 7.7, а. 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ> Использование плавающих фреймов</ТТТЬЕ> 
</НЕАР> | 
<ВОРУ Бдсо1ог="ЕЕЕРЕСС"> 
<Н4 а11ап=сепсехг>Шишкин Иван Иванович</Н4> 
<1Егаше згс=кехезй.Вет папе="Е1Егапе"> 
Отображение плавающих фреймов в Вашем браузере не предусмотрено 
</1Егаше> 
<ОЬ> 
<ГТ><А ВгеЁ=р1сезр.ВЕа сагаес="Е1 Егаще">Картина</А></т1> 
<ГТ><А ВгеЕ=кехезв.РЕм фагде+=" Е] Егапе">Описание</А></ТТ> 
</01,> 
</ВОБУ> 
</НТМТ> 


В плавающий фрейм можно загрузить другие документы, используя опреде- 
ленные на странице гиперссылки. Результат отображения примера приведен 
на рис. 7.10. 


Для плавающих фреймов с помощью параметров можно задавать размеры 
фрейма, горизонтальное выравнивание, размер отступа содержимого фрейма 
от границ. В следующем примере приведено описание плавающего фрейма 
и заданы параметры. Фрейм имеет высоту 320 пикселов, занимает по шири- 
не 60% окна, расположен справа от текста, полосы прокрутки будут уста- 
новлены в случае, если документ не станет помещаться во фрейм. Содер- 
жимое фрейма должно быть отделено от границы по горизонтали и вертика- 
ли на заданное число пикселов. 
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Е Использование плавающих фреймов - Мсозой уе пей. 


Файл _ Правка. Ви _ Перевод Избранное - ` Справка 


био па мьииел + 


Ух калием аАжекАА т с вйъл, пил каеоА лтт ллата ль изм Ч нь 


Шишкин Иван Иванович 


Иван Иванович Шишкин является ^. 


ОДНИМ ИЗ основоположников 
русского национального п ейзажа. 


Влюбленный в природу, полный 
сознания её красоты и величия, 
Шишкин усматривает задачу 
пейзажиста в том, чтобы правдиво 
ВОГПООИЗ-РОлЛиИтТ- ТО ЧТО ОН ВИЛИТ Е ы 


1. картина 
2. описание 


Рис. 7.10. Плавающие фреймы 


Сценарий представлен в листинге 7.7, 6. 
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: Листинг 7.7, 6: Плавающие фреймы и их параметры 


<НТМЬ> 
<НЕАО> 


<ТТТЬЕ> Плавающие фреймы, и их параметры</ТТТЬЕ> 


</НЕАО> 


<ВОШБУ расо1ог="ЕЕЕЕСС"> 


<24 а11ап=сепфег>Творчество русских художников</Н4> 


<1Егате згс=р1се$й.Пем паме="Е1ЁЕгаме" ре1апе=320 м1ар=60$%$ ПВ5расе=50 


у5расе=10 зсго111па=аа®о а119п=г1ар®> 


Ваш браузер не позволяет отображать плавающие фреймы 


</1Егате> 


<оГ> 


<1><А ВгеЁ=р1сезН.РЕм сагаое*="Е1Егапе">Картина</А></1Т> 
<11><А пгеЁ=ехезв.Бем сагае+=" Е 1Егапе">Описание</А></1Т.1> 


</ОТ> 
</ВОПУ> 
</НТМГ> 
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Приведенный пример браузер М!сгозой Ицегпег Ехрогег отобразит так, как 
на рис. 7.1]. 


| Плавающие фреймы и их параметры - МисгозоЙ Ищете! Ехрогег 


|| Файл Правка" Вид’ Избранное. Сервис Справка МИ т 


Творчество русских художников 


Картина 
Списание 


= 
Г 


2] Готово. _ В г | 


Рис. 7.11. Изменение содержимого плавающего фрейма 


Плавающие фреймы 
и организация гиперссылок 


Создадим сценарий, в котором с левой стороны хранится список задач. При 
выборе задачи из списка ее условие появляется в плавающем фрейме, кото- 
рый расположен в окне просмотра справа. 


В документе с условиями задач перед условием первой задачи расположим два 
тега <А папе="1"></А>, а далее перед условием задачи с номером 1 располо- 
жим тег <А>, параметр паме которого равен 1. Таким образом, мы подготовим 
текст условий задач для ссылок на задачи с соответствующим номером. Пусть 
имя файла с условиями задач ш@у.пит. НТМГ-код документа, содержащего 
список задач, и плавающий фрейм, представлен в листинге 7.8. 
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фоовов ооо ово ооооо о ово ово ооо оо ооо со оо ооо то ооо вор рот ооо ооо росс осо ооо ово осоочо росс сос оовоьоочоо имени прером тот иетвноя 


(Пистинг 7. 8. ` Использование плавающих фреймов _ 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ> Использование плавающих фреймов</ТТТТЕ> 
</НЕАО> | 
<ВОПУ Баскагоипа="Аесох. а4Е"> 
<разе фагдее="Е1] Егате"> 
<Н4 а11ап=сепеехг>Для выполнения задания выберите задачу </Н4> 
<1Егаше згс=1палу.РЕм папе="Е1Егате" Ве19йе=350 изаев=70% №5расе=10 
$сго111п9=аи$о а119п=г1аве> 
Ваш браузер не позволяет отображать плавающие термы 
</1Егате> 
<Н4>Темы заданий </Н4> 
<ОГ> 
<ГТ><А ргеЁЕ="1па1у.п6т#1">экспорт товаров</А></ЬТ> 
<Г1><А ргеЁ="1па1у.Ри#2">курсовые работы</А></Т1> 
<ГТ><А Вгеё="1па1у.реи#3">график обследования</А></1Т> 
<Г1><А пгеЕ="10а1у.0п#4">отгрузка со склада</А></ЬТ> 
<ГТ><А вгеЁ="1па1у.В6и#5">технический осмотр</А></1Т> 
<ГТ><А пгеЕ="1пазу пе 6">пансионат</А></т1>. 
<Ь1Т><А вгеЕ="]палу.Вкпи#7">регистрация переговоров</А></ЪТ> 
<ГТ><А ргеЕ="1па1у.[%и#8">расписание экзаменов</А></1Т> 
<ГТ><А вгеЁ="1полу.реи#9">учет товаров</А></ЬТ> 
<Г1><А пгеЕ="10а1у.56и#10">выдача ключей</А></11Т> 
<ГТ><А пгеё="1па1у.0п#11">абонементы</А></Т> 
<Г1><А ВгеЕЁ="1па1у.6и#12">тестирование</А></ТТ> 
<ГТ><А пгеЁ="1па1у.56и#13">соревнование</А></11> 
<ГТ><А ВгеЕ="1та1у.26п#14">семейный бюджет</А></11> 
<Г1><А вхеЕ="1па1у.00#15">экзамены</А></11> 
</01.> 
</ВОрУ> 
</НТМТ> 


Результат отображения описанной страницы приведен на рис. 7.12. 
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ЕЕ плавающих фреймов - Мисгозой петле ЕрИотег | а р я 


_Фам_ „Правка - Ви Избранное _ ° Сервис „Справка _ п: 


сома р К кл иль А: < у НИ Уи Ами Пакая смзажна ил- 


Для выполнения индивидуально задания выберите задачу 


Темы заданий 


экспорт товаров 
курсовые работы 


й ой 
я оторака со СкНада Создайте базу данных Экспорт товаров, в котор 


— ! должны содержаться сведения об экспортируемых и 
тезническии осмотр Е товарах: наишенование товара, страна, иипортирующая |; 
пансионат | товар, объеш поставляемой партии, дата поставки. 
зегистрация е Сфориулируйте запросы для получения сведений: 
переговоров = 

расписание экзаменов - » 0 странах, в которые экспортируется данный 

учет товаров ы товар; 

выдача ключей Е | » 060 всех поставках в определенную страну; 
абонементы ‚ »е о странах, в которые были осуществлены 
тестирование :3 поставки в определенный период врешени; 
СоОрЕВНОВАНИЕ Е | + 060 всех поставках, объем которых 

семейный бюджет г находится в заданных пределах. 


Рис. 7.12. Оглавление плавающего фрейма 


Упражнения 


|. 


Создайте документ, разбивающий окно просмотра с помощью фреймов 
на две прямоугольные области: верхнюю и нижнюю. В верхней области 
поместите оглавление в виде списка, при выборе пунктов которого соот- 
ветствующий раздел должен появляться в нижней части окна. 


Создайте документ, разбивающий окно просмотра с помощью фреймов 
на две прямоугольные области: верхнюю и нижнюю. В верхней области 
поместите оглавление, представленное с помощью графического гори- 
зонтального меню. 


Создайте документ, разбивающий окно просмотра с помощью фреймов 
на две прямоугольные области: верхнюю и нижнюю. В верхней области 
поместите оглавление. Оглавление представьте с помощью изображения- 
карты. При выборе активной области в нижнюю область окна должен 
быть загружен соответствующий пункту раздел. 


Выполните предыдущие три задания при условии, что пункты меню со- 
ответствуют разделам одного документа. 


Выполните первые три задания при условии, что пункты меню соответ- 
ствуют разделам, хранящимся в разных документах. 
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6. 


10. 


11. 


Создайте документ, разбивающий окно просмотра с помошью фреймов 
на две прямоугольные области: левую и правую. В левой области помес- 
тите оглавление, при выборе пунктов которого соответствующий пункту 
раздел должен появляться в правой части окна. Оглавление представьте 
с помощью графического вертикального меню. 


Создайте документ, разбивающий окно просмотра с помощью фреймов 
на две прямоугольные области: левую и правую. В левой области помес- 
тите оглавление, при выборе пунктов которого соответствующий пункту 
раздел должен появляться в правой части окна. Оглавление представьте 
с помощью изображения-карты. 


Создайте документ, разбивающий окно просмотра с помощью фреймов 
на три прямоугольные области. Верхняя область (А) занимает по шири- 
не весь экран, нижняя область окна разбивается на две части: левую (В) 
и правую (С). В верхнюю область А поместите графическое изображе- 
ние, в область В — оглавление, при выборе пунктов которого соответст- 
вующий раздел должен появляться в области С. Оглавление может быть 
представлено: 


е СПИСКОМ; 

е графическим меню; 

» Изображением-картой. 

Пунктам меню могут соответствовать разделы: 

е Одного Документа; 

е разных документов. 

Представьте материалы в виде НТМГ-документов с описанной структурой. 


Создайте документ, разбивающий окно просмотра с помошью фреймов 
на три прямоугольные области. Верхняя область (А) занимает по шири- 
не весь экран, нижняя область окна разбивается на две части: левую (В) 
и правую (С). В область В поместите оглавление, представленное графи- 
ческим меню. Разделы, соответствующие пунктам меню, должны появ- 
ляться в области С. При попадании курсора мыши на соответствующий 
пункт меню, в области А должна появляться краткая аннотация выбран- 
ного пункта. Представьте материалы в виде НТМГ-документов с опи- 
санной структурой. 


Создайте документ, разбивающий окно просмотра с помощью фреймов 
на три прямоугольные области. Верхняя область (А) занимает по шири- 
не весь экран, нижняя область окна разбивается на две части: левую (В) 
и правую (С). В верхнюю область А поместите изображение-карту, дуб- 
лирующую меню области В. 


Создайте документ, разбивающий окно просмотра с помощью фреймов 
на три прямоугольные области. Верхняя область окна делится на две 
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части: левую (В) и правую (С). Нижняя область (А) занимает по ширине 
весь экран. В область А поместите оглавление для некоторых художест- 
венных шедевров. При выборе пункта оглавления в части В должна поя- 
виться репродукция картины, в части — С сведения о художнике или о 
картине. 


12. Создайте документ, разбивающий окно просмотра с помощью фреймов на 
три прямоугольные области. Верхняя область окна разбивается на две час- 
ти: левую (В) и правую (С). Нижняя область (А) занимает по ширине весь 
экран. В область В поместите оглавление, представленное графическим 
меню. Разделы, соответствующие пунктам меню и содержащие теоретиче- 
ский материал, должны появляться в области: С. В область А поместите 
документ, содержащий ссылки на примеры, практическую работу, кон- 
трольные вопросы, список литературы по выбранному разделу. 


13. Создайте документ, разбивающий окно просмотра с помощью фреймов 
на четыре прямоугольные области, как показано на рис. 7.13. В области 
А поместите оглавление. При выборе пункта оглавления в область В 
должен помещаться теоретический материал, соответствующий пункту 
меню, в область С — список контрольных вопросов по рассматриваемой 
теме, в область р — практическая работа. Представьте материалы в виде 
НТМГ-документов описанной структуры. 


С 


75% 


20% 


Рис. 7.13. Фреймовая структура к упражнению 13 


14. Создайте документ, разбивающий окно просмотра с помошью фреймов 
на четыре прямоугольные области. Первая область (А) занимает по ши- 
рине все окно и 10% высоты окна. В эту область следует помещать гра- 
фические изображения, которые чередуются через каждые десять се- 
кунд. Две области — Ви С — занимают по высоте 70% окна и по 
ширине 20% и 80% соответственно. В область В поместите оглавление в 
виде списка, в области С должны появляться разделы, соответствующие 
пунктам оглавления. Четвертая часть О занимает по ширине всю об- 
ласть окна и 20% высоты окна. В области О разместите четыре кнопки, 
обеспечивающие навигацию по пунктам оглавления. Одна кнопка по- 
зволяет осуществить переход к началу документа (первый пункт оглав- 
ления), вторая — к концу (последний пункт оглавления), две другие — к 
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15. 


следующему и предыдущему разделу по отношению к текущему. Теку- 
щий раздел содержится в области С: 


е разделы, соответствующие пунктам меню, расположены в одном до- 
кументе, 


» разделы, соответствующие пунктам меню, расположены в разных до- 
кументах. 


Создайте документ, разбивающий окно просмотра с помощью фреймов 
на четыре прямоугольные области, как показано на рис. 7.14. В область 
А помещается список тем. При выборе темы в области С отображаются 
разделы соответствующей темы. Выбор раздела области С приводит к 
отображению области В связанного документа. При этом в области О 
появляется соответствующее теме изображение. Оформите материал в 
виде НТМЕ-документов так, чтобы он удовлетворял описанной схеме. 


Рис. 7.14. Фреймовая структура к упражнению 15 


ЧАСТЬ 1 


Основные объекты Чауа$ спри 
и методы работы с ним 


Глава 8. Повторяющиеся вычисления 

Глава 9. Оператор цикла арифметического типа 
Глава 10. Оператор /ох...т 

Глава 11. Представление и обработка дат 

Глава 12. Строки и методы работы с ними 

Глава 13. Стандартные функции работы со строками 


Глава 14. Массивы и методы работы с ними 


Глава 8 


Повторяющиеся 
вычисления 


Для успешного решения широкого круга задач требуется многократно по- 
вторить некоторую последовательность действий, записанную в программе 
один раз. В том случае, когда число повторений последовательности дейст- 
вий нам неизвестно, либо число повторений зависит от некоторых условий, 
можно воспользоваться оператором цикла вида: 


ир11е (В) {5$} 
где в — выражение логического типа, 5 — операторы, называемые телом 


цикла. Операторы $ в фигурных скобках выполняются до тех пор, пока ус- 
ловие в не станет ложным. 


Нахождение общего делителя 


Напишем программу, которая для двух заданных чисел определяет .наи- 
больший общий делитель. 


При решении задачи воспользуемся алгоритмом Евклида. Если значение т, 
равно нулю, то наибольший общий делитель чисел п и т равен п: 

НОД(и, 0) = пм. 

В остальных случаях верно следующее соотношение: 

НОД(и, т) = НОД(т, п%т). 


В функции поа переменная р используется для получения остатка от деле- 
ния чисел п И п (листинг 8.1). Выполнение цикла продолжается до тех пор, 
пока значение р не станет равным нулю. Последнее вычисленное значение 
п равно наибольшему общему делителю. 


: Листинг 8.1. Наибольший общий делитель двух чисел 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Наибольший общий делитель двух чисел</ТТТЬЕ> 
<5сг1ре ]1апацаае="Зауа$сг1р®"> 
<!-- // 
Еопсе1оп по (07) 


8 Зак. 834 


214 Часть /!. Основные объекты УауаЗспрЁи методы работы с ними 
{ уах п=ор) .пут1.уа1е 
Уаг п=ор7. Ино. уа1ае 
уаг.р = пм 
м11е (р!=0) 
{ п=м 
ш-р 
р=п%м 
} 
ор] .гез.уа1ае=м 
} 
//--> | 
</зсх1рЕ> 
</НЕАР> 
<ВОрУ> 
Наибольший общий делитель двух заданных чисел 
<РГОВМ паще="Ёотт1"> | 
Введите число <1прабс Еуре="фехе" папше="пим1" $12е="8"><рг> 
Введите число <1при®е Еуре="$ех®" папе="пит2" $12е="8"><рг> 
<1прие Еуре="рБаекоп" уа]1ае="Вычислить" опС11ск="поа (Ёотта1) "><Ьг> 
Наибольший общий делитель <1прае суре="+ехе" папе="гез" 
| $12е="8"><рг> 
<1праЕ суре="гезее" уа1пе="Отменить"> 
</ЕОВМ> 
</вору> 
</НТМЬ> 


На рис. 8.1 приведен результат выполнения сценария для заданных нату- 
ральных чисел. 


{ Наибольший общий делитель двух заданных чисел, 


1 Введите число |1024 — 


| Введите число [520 ПХ 


а к иран о пр пин ьвьтньделрьтчь в опен л 9 ко бы ль ить о клал оля дви иль оилиньлил ко фрщищю кре чилевало о ключи алло „рамен т лил. рый плыли  - нбьь ис мрьлельчь в оашшиюнь кл 


еее тя утере ри 


„Вычислить 


7. с 
#..:: ^ 
УВ ВО ель 54: 


т} 
в? 


| Наибольший общий делитель |8 


аи пе делитель пли ль клети лире ьеуулта нид али У или ео плеть лить дит чтят лесе учлитт сти 


‚Отменить. 


Рис. 8.1. Наибольший общий делитель двух натуральных чисел 
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Определение наименьшего 
общего кратного 


Напишем программу, определяющую наименышее общее кратное двух за- 
данных натуральных чисел. 


Для того чтобы определить наименьшее общее кратное, вычислим наиболь- 
ший общий делитель и воспользуемся следующим равенством: 


НОК(я, т) = пх т/НОД(и, т). 


В отличие от предыдущего варианта опишем функцию поа с двумя парамет- 
рами. Вычисленное значение наибольшего общего делителя будет выдавать- 
ся в качестве результата функции. Функция пок простая, ее действия состо- 
ят в вызове функции поа и выдаче в качестве результата функции значения 
выражения. Значением параметра обработки события в данном случае явля- 
ется оператор присваивания, обеспечивающий запись вычисленного значе- 
ния в соответствующее поле формы (листинг 8.2). 


Листинг 8.2. Наименьшее общее кратное двух натуральных чисел 


<НТМЬ> 
<НЕАО> 

<ТТТЬТЕ>Наименьшее общее кратное двух натуральных чисел</ТТТЬЕ> 
<$сг1р®е 1апачаде="Зауа$ сх1р®"> 

<!-- // 

Еопсе1оп поа (п,м) 
{ уаг р=р%м 
у11е (р!=0) 


{ п=м 


Еопсе1оп пок(п,п) 
{ гебагп п*п/роа (п,м) } 
//--=> 
</зсг1ре> 
</НЕАО> 
<ВОПУ> 


Наименьшее общее кратное двух заданных натуральных чисел 
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<РГОЁКМ патме="Ёогт1"> 
Введите число <1приф суре="®ех®" паме="пит1" $12е="8"><рг> 
Введите число <1прие вуре="еех®е" папе="пом2" 512е="8"><Ьг> 
<1праЕ вуре="Баееоп" уа1ае="Вычислить" 
опС11ск="Еогт1 .гез.уа1ае=пок (Ёотгт1 .пим1.ха]ае, Еогт1 . пам .уа1ае) "> 
<Ьг> 
Наименьшее общее кратное <1приЕ Еуре="$ехе" паме="гез" 

$12е="8"><рг> 

<1приЕ Еуре="гезее" уа1ае="Отменить"> 

</ЕОВМ>. 

</ВОБУ> 
</НТМЬ> 


Определение взаимно простых чисел 


Необходимо написать программу, определяющую, являются ли два заданных 
натуральных числа взаимно простыми. Взаимно простые числа не имеют 
общих делителей кроме 1. 


При рассмотрении предыдущих примеров описаны функции, которые по- 
могают решить поставленную задачу. Для двух данных чисел можно найти 
наибольший общий делитель и проверить, равен ли он нулю. Если наи- 
больший общий делитель равен нулю, то числа являются взаимно простыми 
(листинг 8.3, а). 


: Листинг 8.3, а. Взаимно простые числа  _ 


<НТМЬ> 
<НЕАО> 

<ТТТЬЕ>Взаимно простые числа</ТТТЬЕ> 
<$сг1рЕ 1апачаде="Зауа$сг1ре"> 

<!-- // 

Рорсе1оп поа (п,п) 
{ уах р=п%м 
ир11е (р!=0) 


тегагп м 
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Рапсе1оп пим$1 (п, п) 
{ гебагр (поа(п,м)==1) } 
ЕаопсЕ1оп апз$ (п, м) 
{ 1Е (помзиа(п,пм)) 
{ Еота1Т.гез5.уа1ае='Да' } 
ее 
{ Еоги]1.гез$.ха]ае='Нет' } 
} 
//--> 
</зсг1ре> 
</НЕАБ> 
<ВОПУ> 
Являются ли заданные натуральные числа взаимно простыми? 
<РОВМ папе="ЁЕогт1"> 
Введите число <1праё вуре="$ехе" папе="пит1" 51е="8"><рг> 
Введите число <1прие тсуре="*ехе" папе="пит2" $12е="8"><Ьг> 
<1прие буре="Баббоп" уа1ае="Вычислить" 
опС11ск="ап$ (Ёогт1 .пип1.уУа1ае, Ёоги1 .пим2.уа1ое) "><Ьх> 
Числа взаимно-просты? <1праЕ вуре="{ехЕ" папе="гез" $12е="8"><рг> 
<1приЕ Еуре="гезее" уа]ае="Отменить"> 
</ЕОВМ> 
</ВОБУ> 
</НТМГ> 


В трех предыдущих примерах при решении задачи использовалась функция 
поа. В каждом из документов приводилось ее описание. Можно описание 
функции поа вынести во внешний файл, а там, где требуется ее использова- 
ние, подключать внешний файл к документу. Пусть в файле ппо4.}$ содер- 
жится следующее описание функции поа: 


Еарсе1оп поа(п,м) 
{ уаг р=п%м 
ир11е (р!=0) 
{ п=м 
п-р 
р=п%м 
} 


гебагп м 
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Для того чтобы данный файл связать с документами, содержащими вызов 
функции поа, требуется указать имя внешнего файла в качестве значения 
параметра згс тега <зсг1р+>. Документ, использующий внешний файл для 
рассматриваемой задачи, представлен в листинге 8.3, 6. 


: Листинг 8.3, 6: Описание функции под во внешнем файле _ 
<НТМГ> 
<НЕАШ> 
<ТТТТЕ>Наибольший общий делитель двух чисел</ТТТЬЕ> 
<$сг1рЕ ]1апачаде="Фауа$ сг1ре" згс=ппоа.75$> 
<!--// 
Чосимепе .а1ет* ("Проверьте файл со сценарием") 
//--> 
</зсг1реЕ> 
</НЕАО> 
<ВОрУ> 
Наибольший общий делитель двух заданных чисел 
<РГОВМ паще="Еогт1"> 
Введите число <1приё Еуре="6ехЕе" паще="пим1" $12е="8"><Ьг> 
Введите число <1приё Еуре="бех®е" паще="пит2" $12е="8"><Аг> 
<1праЕ фуре="Баееоп" уа1ще="Вычислить" 
опС11ск="Еог1 .гез.уа1пае=поа (Ёотгт1 .пом] .уа1ще, Еогт1 .пам2.уа1чае) "> 
<рг> 
Наибольший общий делитель <1праЕ $уре="6ехЕ" папе="гез" 
$12е="8"><пг> 
<1приЕ куре="гезее" уа]ае="Отменить"> 
</ЕОВМ> | 
</ВОрУ> 
</НТМт> 


Строка <$сх1р 1апдааде="Зауа$сг1р®" згс=ппоа.)з> обеспечивает под- 
ключение внешнего файла к документу. 


При решении задачи нахождения наименьшего общего кратного использо- 
вали две функции поа И пок. Пусть функция поа хранится во внешнем фай- 
ле, а функция пок — в том же документе, в котором производится ее вызов. 
При описании первого тега <зсх1р&> указывался источник с помощью зна- 
чения параметра згс, второй тег содержал описание функции пок. НТМГ- 
код документа представлен в листинге 8.3, в. 
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"Листинг 8.3, в. Наименьшее ‘общее ‘кратное. Функция поа во внешнем файле. ее : 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Наименьшее общее кратное двух натуральных чисел</ТТТЬЕ> 
<$сг1рЕ 1апацаде="Уауа$сг1ре" згс=ппоа.75$> 
<!-- // 
Аоспотепф .а1етф ("Проверьте файл со сценарием") 
//--> 
</зсх1рЕ> 
<5сг1ре 1апаааде="Лауа$сг1ре"> 
<!-- // 
Рапсе1оп пок(п, м) 
{ гебагр п*д/ поа(п,м) } 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
Наименьшее общее кратное двух заданных натуральных чисел 
<РГОВМ пацще="Ёогт1"> 
Введите число <1прис буре="6ехе" паме="пам1" 512е="8"><ру> 
Введите число <1прае суре="%ехе" папе="пом2" $12е="8"><рхг> 
<1приЕ фуре="БаЕвоп" уа1ае="Вычислить" 
опС11ск="Еогм]1 .гез.уа1це=пок (Ёотг1 .пит1.ха]ае, Ёогт1 .пом?.уа]1ае) "> 
<Бг> 
Наименьшее общее кратное <1праЕ Еуре="вехе" папе="гез" 
$12е="8"><Вг> 
<1праяе буре="гезее" уа]ае="Отменить"> 
</ЕОВМ> 
</ВОрУ> 
</НТМГ> 


При определении, являются ли два числа взаимно простыми, используются 
две функции, хранящиеся в отдельных внешних файлах. Для каждой из 
функций в документе используется свой тег <зск1р*>, в котором задаются 
имена внешних файлов (листинг 8.3, Г). 
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Листинг 8. 3, г. Определение взаимно. простых ч чисел. . дача Зспрьфункции 
хранятся во внешних файлах | 


<НТМЬ> 
<НЕАО> 
<ТТТТЕ>Взаимно простые числа</ТТТЬЕ> 
<$сг1ре 1апазаде="Лауа$ сг1р®" згс=ппоа. $5> 
<!-- // 
Чосомепе.. а]1ег® ("Проверьте файл со сценарием") 
//--> 
</зсг1ре> 
<$сг1ре ]апацаде="Фауа$ сг1ре" згс=ппамз ии. 1$> 
<!-- // 
Чосцтмеп®.а1ет® ("Проверьте файл со сценарием") 
//--=> 
</зсг1р®> 
</НЕАО> 
<ВОПУ> 
Являются ли заданные натуральные числа взаимно простыми? 
<РОВМ пате="Ёогт1"> 
Введите число <1прие суре="6ехе" папе="пит1" $12е="8"><рг> 
Введите число <1приф фуре="$ехе" папе="пим2" 31хе="8"><рг> 
<1праЕ Еуре="Баевоп" уа1ае="Вычислить" 
опС11ск="ап$ (Ёогт1 .пим1.уа]ае, Еоги1 .пим2.уа1ае) "><Бг> 
Числа взаимно просты? <1прие суре="+ехе" папе="гез" $з12е="8"><рг> 
<1прие $уре="гезее" уа1ае="Отменить"> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Принятие решения о простом 
и составном числе 


Напишем программу, которая определяет, является ли заданное число про- 
стым или составным. 


В функции $1тр1е (листинг 8.4) для того, чтобы выяснить, является ли чис- 
ло п простым, проверяется остаток от деления п на 1. Переменная 1: может 
изменяться от 2 до г = и/2. Если при каком-либо значении остаток от деле- 
НИЯ п На 1 равен нулю, то отсюда следует, что 1 — делитель п, а, следова- 
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тельно, число п — составное. Выполнение цикла тогда следует прекратить. 
С этой целью переменной р будет присвоено значение Еа1зе. Если же пере- 
менная 1 "пробежала" все значения от 2 до г, и при каждом значении 1 ос- 
таток от деления п на 1 был отличен от нуля, то исполнение цикла завер- 
шится, как только значение 1 станет больше г. Значение переменной р не 
изменится. В этом случае п — простое число. 


<НТМЬ> 
<НЕАБ> 
<ТТТЬЕ>Число простое или составное</ТТТЬЕ> 
<$сг1ре 1апаладе="Фауа$ сг1ре"> 
<!-- // 
Еапс®1оп $з1ар1е (057) 
{ уаг п=ор) .пам.уа1ае 
уаг р = Тме 
1Е (п > 3) 
{ уах 1=2; 
уаг г=п/2 
имВ11е ((1<=:) && р) 
{ р=(0$1!=0); 1 +=1} 
} 
1Е (р) оБ).геза]1е.уа]ае="простое" 
е15е ор).гези1$.уа]1ае="составное" 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
Является введенное число простым или составным? 
<РГОВМ папе="ЁЕотт1"> 
<1прас суре="фехе" паще="пом" $12е="8"> 
<1приё $уре="Баебоп" уа1ае="Определить" опС11ск="з1тр1е (Ёогт1) "> 
<1приЕ вуре="бехе" паме="гези1е" $17е="10"><ртг> 
<1проЕ Еуре="гезее" уа]ае="Отменить"> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 
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Функцию з1пр1е можно улучшить, если делители числа искать из интервала 
р. Ул ] Кроме того, имеет смысл искать делители только для нечетных чи- 
сел. 


Числа-близнецы 


Напишем программу, определяющую, являются ли два заданных натураль- 
ных числа числами-близнецами. 


Два натуральных числа называются близнецами. если они оба просты и раз- 
ница между ними равна 2, например, числа 11 и 13 и 17 и 19 являются 
близнецами. При решении данной задачи воспользуемся функцией злир1е, 
определяющей, является ли число простым. Функция будет иметь один па- 
раметр-число и выдавать логический результат +гоае, если число простое, и 
Еа1зе, если число составное. Функция помеа для заданных двух чисел про- 
веряет, являются ли числа простыми и верно ли, что разность между числа- 
ми равна 2. Результат работы функции помеа служит для формирования от- 
вета, который помещается в соответствующее поле формы (листинг 8.5). 


Листинг 8.5. Числа-близнецы | 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Числа-близнецы</ТТТЬЕ> 
<5сг1ре 1апацаде="Зауа$сг1ре"> 
<!-- // 
Еорс&1оп зиар]1е (п) 
{ уаг р=$гае 
1Е (п>3) 
{ хак 1=2; 
уаг г=п/2 
уР41е ((1<=г) && р) 
{ р=(0$1!=0); 1 += 1} 
} 
гебагп р 
} 
ЕопсЕ1оп помеа (п,п) 
{ гебогр (эар1е(п) && зиир1е (п) && МаеВ.аЪз$ (п-м)==2) } 
Еопс®1оп ап$(п,п) 


{ 1Е (помеа(п,м)) 
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{ Еога?Т.гез.уа]ае="близнецы" } 
е15е 
{ Еоти1.гез$.уа1ае="не являются близнецами" } 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
Являются ли заданные натуральные числа близнецами? 
<ГОВМ паме="Еогт1"> 
Введите число <1прае $уре="фехЕ" паше="пип1" $17е="8"><рг> 
Введите число <1праЕ Еуре="бех®" паме="пиам2" з1хе="8"><рг> 
<1праяе Еуре="БоаЕбоп" уа]ае="Вычислить" 
опС11ск="ап$ (ЁЕоги1 .пип]1.хуа]ае, Еогта{ .пим2 .уа]1ое) "><Бг> 
Заданные числа <1праЕ +уре="%ехе" паме="гез" $12е="25"><Вг> 
<1причё суре="гезее" уа1ае="Отменить"> 
</ЕОВМ> 
</вВорУу> 
</НТМТ> 


Числа Фибоначчи 


Напишем программу, определяющую, является ли заданное число числом 
Фибоначчи. 


Элементы числовой последовательности 1, |, 2, 3, 5, 8, 13, 21,..., в которой 
первые два элемента равны |, а каждый следующий элемент представляет 
собой сумму двух предыдущих, называются числами Фибоначчи. В функции 
Е1Ь в результате работы цикла формируется очередное число последователь- 
ности до тех пор, пока сформированное число не станет больше или равным 
заданному числу. После выполнения цикла определяется, принадлежит ли 
заданное число последовательности чисел Фибоначчи (листинг 8.6). 


Листинг 8.6. Числа Фибоначчи ‘. Е | 
<НТМТ> 
<НЕАПО> 
<ТТТЬЕ> </ТТТЬЕ> 
<$сг1ре 1ападзаде="ауа$сг1ре"> 


<!-- // 
Еопсе1оп Е1Ъ (057) 
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{ уаг поапеоЪ] .АЧафа.\уа1ае 
уаг Е1=1 
уаг Е2=1 
уаг Е3=1 
имП11е (поп>ЕЗ) 
{ Е3=Е1+Е2; Е1=Е2; Е2=ЕЗ } 
1ЁЕ (попе=ЕЁЗ) оБ).геза1*.уа1ае="Да" 
е15е ор].геза1*.уа1ае="Нет" 
} 
//--=> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> | 
Является ли введенное значение числом Фибоначчи? 
<ЕОВМ папе="ЁРоги1"> 
<1прие Еуре="$ехЕ" паме="аава" $12е="8"> 
<1приЕ куре="Ьоееоп" уа1ае="Определить" опС11ск="Е1Ъ (011) "> 
<1праЕ фуре="$ех®" паме="гез1е" $512е="5"><ВАг> 
<1приЕ суре="гезее" уа]ае="Отменить"> 
</ЕОВМ> 
</ВорУ> 
</НТМГ> 


Решение уравнения методом итераций 


Необходимо написать программу, которая находит корень уравнения 
зт(х? +1) методом итераций при заданном начальном приближении Ёи 
точности ерз. 


Методом итераций решается уравнение вида 

х = /(х), |/(х) < 1. 

Последовательные приближения к корню задаются по формуле х,= ДКхи-|), 
К=1, 2, ..., м = Если [х, -х,_1|<еру, то значение х/-! можно считать 
приближенным корнем уравнения, т. к. выполнено: 


х, = Дх-1) и И (жк 1) — ХЕ < ерз. 


Два последних вычисленных значения отличаются по модулю на величину, 
меньшую заданной точности ер5. 


В функции 1+ег используются переменные х и у для хранения двух после- 
довательных значений (листинг 8.7). 
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"Листинг 8.7. Решение уравнения методом итераций 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Решение уравнения методом итераций</ТТТЬЕ> 
<$сг1ре 1апацаде="Зауа5сг1ре"> 
<!-- // 
Еопс®1оп 1%ег(о5)) 
{ уаг Е=оБ) .рг1р.хуа1ае 
уаг ерз=ор].керз.уа1ае 
уахг х=е 
уаг у=Мафеп.$1п (х*х+1) 
мр11е (Мафр.аз (у-х)>=ерз) 
{ х=у; у= Маёв.51п(х*х+1) } 
ор) .геза1®.уа1ае=у 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОрУ> 
Решение уравнения $1п(х*х+1)=0 методом итераций 
<РОВМ паме="Еотгт1"> 
Введите начальное приближение <1праё вуре="$ехе" паме="рг1ь" 
312е="8"><рг> 
Введите требуемую точность <1праё Еуре="%ехе" паме="$ерз" 
512е="8"><рг> | 
<1приЕ суре="раееоп" уа]ае="Найти корень" опС11ск="1кег (Еога) "> 
Корень уравнения <1прие $уре="{ех®е" паме="гезиа1е" $312е="18"><рг> 
<1приЕ Есуре="гезее" уа1ае="Отменить"> 
</ЕОВМ> 
</ВОрУ> 
<НТМГ> 


Свойства пар натуральных чисел 


Напишем сценарий, который позволяет для двух заданных натуральных чи- 
сел найти наибольший общий делитель или наименьшее общее кратное, 
выяснить, являются ли числа взаимно простыми или близнецами. Свойства, 
которые требуется определить, задаются с помощью флажка так, как пока- 
зано на рис. 8.2. 
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1 Эа Определение некоторых свойств пары чисел - Мгозой тете! Е криоге! 


И Файл. Правка ^ ` Вид Избранное — ‚Сервис ` Справка 


ео оеллолея ед лентах змеи ам оли ча Алджльк оклад вкл слил уча пл етомемл бт отит кли ли - получали - ^ пали помада лол сои личи пал дл ал пало ый единая илллл Ал. 


Определение свойств пары натуральных чисел 


Введите два числа: 7 и [19 


Выберите свойства и нажмите кнопку Определить 


Свойства т р 


| вены общее, ратное т ажиемьшее общее кратное: "323 
| взаимно п проеты- в я числа взаимно простые: да 


ту ‚пчисла-близнецы: да 
|9 числа-близнецы м ее т 


‚_ Определить: ^ |. Отменить, 


Рис. 8.2. Свойства пар натуральных чисел 


Две функции: вычисляющая наименышее общее кратное и проверяющая, яв- 
ляются Ли два числа взаимно простыми, используют функцию определения 
наибольшего общего делителя. Функция принятия решения, являются ли два 
значения числами-близнецами, использует функцию определения простого 
числа. Все функции поместим в отдельный файл. Этот файл не будет содер- 
жать тегов НТМЕ и должен иметь расширение |5. В нашем случае во внешнем 
файле хранятся следующие описания переменных и функций: 
уаг $51="наибольший общий делитель: " 
уаг $2="наименьшее общее кратное: " 
уаг $3="числа взаимно простые: " 
уаг 54="числа-близнецы: " 
Рорсе1оп поа (п,п) 
{ уаг р = п$м 
ир11е (р !=0) 
{ п=м 
п-р 
р=рп%м 
} 
гефагп м 
} 
Рапс®1оп пок(п,п) 
{ гебагп п*п/роа (п,м) } 
ЕорсЕ1оп з1тр1е (п) 
{ уаг р=егае 
1Е (п>3) 
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{ таг 1=2; 
уаг г=п/2 
мй11е ((1<=:) && р) 
{ р=(п%1 1!= 0); 1+=1} 
} 
гегагп р 
} 
Еаопс&1оп поамеа (п, м) 
{ уаг г="нет" 


1Е ( з1лтр1е(п) && э1р1е (м) && МаЕП.аЬ$ (п-м) == 


г="да" 
гебоуп г 
} 
Рос 1оп пиши (п, п) 
{ хаг г= "нет" 
1Е (поа(п,м)==1) 
у="да" 
гебагп г 
} 
Еорсе1оп агап® (о) ) 
{ таг з="" 
уаг п=ор).пим1.уа1чае 
уах п=ор].пам2.уа1ае 
1Е ((о5].е1емепё$[2]).сБескеа 
срескКеа 
спескеа 


( 
1Е ((о5].е1етепе$ [4] 
1Е ((05).е1етепез [5] 
} 


ЕорсЕ1оп ап$ ($) 
{ аосимерле.Еогта1.гез.уа]ае =$ } 


{5=$5+$4+питеа (п, п) 


227 


) 


). ) {35=5+$1+п0а (п,т)+"\г\п"; апз$ ($) } 

ТЕ ( 552. е1етел*$[3]).свескеа) {3=$+$2+поК(п,м)+"\г\п"; апз ($) } 
). ) {5=5+$3+пм$1щ(п,м)+"\х\п"; ап$ ($) } 
). ) 


+"\х\р"; ап$ ($) } 


Для того чтобы этот файл связать с документом, содержащим вызов функ- 
ций, описанных во внешнем файле, требуется имя файла задать в качестве 
значения параметра згс тега <зсг1р*>. Документ, использующий внешний 
файл для рассматриваемой задачи, представлен в листинге 8.8. 


<НТМЬ> 
<НЕАРБ> 


<ТТТЬЕ>Определение некоторых свойств пары чисел</ТТТЬЕ> 


<$сг1рЕ 1ападчаде="Лауа$сг1ре" згс="8ех8Еапс.)5"> 
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<!-- 
Чосимепе .а1ет\ ("Проверьте файл со сценариями!") 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОРУ Баскагоппа="Еоп3.91Е"> 
<Н4` а11ап=сепкег>Определение свойств пары натуральных чисел </Н4> 
<СЕМТЕВ> 
<ЕОЁМ папе="ЁЕогт1 "> 
Введите два числа: 
<1приЕ суре="%ехе" пате="пит1" $12е=10> 
и <1праЕ вуре="6ехе" паме="пит2" $12е=10><рг> 
Выберите свойства и нажмите кнопку <В>Определить</В><Р> 
<ТАВЬЕ Богаег=3 Юдсо1ог=$1]1уег а119п=сепфег> 
<ТВ><ТН>Свойства</ТН><ТН>Результат</ТН></ТВ> 
<ТВ> | 
<ТО> 
<1приЕ буре="спесКкрох" паще="п" уа]ще=1> 
наибольший общий делитель<рг> 
<1прие буре="спескКЬох" паще="п" уа1ае=2> 
наименьшее общее кратное<рг> 
<1праЕ вуре="спескрох" паме="п" уа]ае=З>взаимно просты<рг> 
<1праЕ Еуре="свескрох" папе="п" уа1пе=4>числа-близнецы<г> 
</ТО> | 
<ТО><Еехфбагеа пацще=гез со1$=30 гомз=4></$ехфагеа><рг></ТО> 
</ТВ> 
</ТАВЬЕ><Р> 
<1праЕ вуре="Баееоп" уа]ае=Определить опС11ск="дгап® (Ёотг1) "> 
<1прие суре="гезеф" уа1ае="Отменить"> 
</ЕОВМ> 
</ВОБУ> 
</НТМГ> 


Упражнения 


1. Напишите программу, которая "переворачивает" заданное натуральное 
число. 


2. Напишите сценарий, который определяет все числа-палиндромы! из за- 
данного пользователем диапазона чисел. 


' Палиндром — число или слово, которые читаются одинаково как справа налево, 
так и слева направо. Например, потоп или 454. — Ред. 


Глава 9 


Оператор цикла 
арифметического типа 


Если число повторений заранее известно, то можно воспользоваться сле- 
дующим оператором цикла, который часто называют оператором цикла 
арифметического типа. Синтаксис этого оператора таков: 


Рог (А; В; Т) {$} 


Выражение А служит для инициализации параметра цикла и вычисляется 
один раз в начале выполнения цикла. Выражение в (условие продолжения) 
управляет работой цикла. Если значение выражения ложно, то выполнение 
цикла завершается, если истинно, то выполняется оператор $, составляю- 
щий тело цикла. Выражение т служит для изменения значения параметра 
цикла. После выполнения тела цикла $ вычисляется значение выражения т, 
затем опять вычисляется значение выражения в и т. д. Цикл может прекра- 
тить свою работу в результате выполнения оператора ьгеак в теле цикла. 
Опишем функцию зомае1, которая находит сумму делителей числа п, не 
считая самого числа. 


ЕопсЕ1оп эамае1 (п) 
{ таг $=1; 
Рог (уаг 1=2; 1 <= 1/2; 1++) 
{ ПЕ (п%$1== 0) $4+=1} 
тебагп $5 


} 


Параметр цикла 1 описывается с помощью оператора уаг 1=2. Условие про- 
должения выполнения цикла 1<=п/2. Все делитёли натуральных чисел нахо- 
дятся в интервале [1; п]. Параметр цикла 1 увеличивается на | при выполне- 
нии 1++. Тело цикла состоит из условного оператора. Если очередное число 
является делителем, то оно добавляется к переменной з, служашей для 
"накапливания" суммы делителей числа п. До цикла переменной $ присваи- 
вается значение 1, т. к. | — делитель любого натурального числа. 
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Совершенные числа 


Напишем программу, определяющую, является ли заданное число ип совер- 
шенным. 


Совершенным называется число и, равное сумме своих делителей, не считая 
самого числа. Например, число 6 является совершенным, т. к. верно 
6=1+2 + 3, где 1, 2, 3 — делители числа 6. Число 28 также является со- 
вершенным, справедливо равенство 28 =1+2+4+ 7+ 14. При решении 
задачи воспользуемся только что описанной функцией зопде1 (листинг 9.1). 


| Листинг 9.1. Итерационные методы. Совершенные числа о 
<НТМЬ> 
<НЕАО> 

<ТТТЬЕ>Итерационные методы. Совершенные числа</ТТТЬЕ> 

<$сг1рЕ 1апачаде="Фауа$сг1ре"> 

<!-- // 

Еопсе1оп  зимае]1 (п) 
{ уаг $=1; 
Еог (уаг 1=2; 1<=0/2; 1++) 


{ ПЕ (п %1 == О0) $ += 1} 


ЕопсЕ1оп $о0%(ор)) 
{ уаг п=ор).попр.уа]10е; 
уаг 5="" 
1Е (п==затае]1 (п)) $5="соверщенное" 
е15е з="не является совершенным" 
гесатп 5 
} 
//--=> 
</зсг1р®> 
</НЕАО> 
<ВОПУ> 
<Р> Итерационные методы. Совершенные числа</Р> 
<ГОВМ папе="ГРогт0"> 
Введите натуральное число: <1праЕ Еуре="вех®" $з12е=8 патме="питр"> 
<1праЕ Есуре="БаЕЕоп" уа]ае=Выполнить 


опС]1ск="Ер15$.Еоги. гез.уа1ае=$оух (ЁЕогт0) "><Вг> 
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Данное число: <1прае суре="фехе" $12е=24 папе="гез"><рг> 
<1приЕ суре="гезее" уа]ае=Отменить> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Обратите внимание на значение параметра обработки события. В данном слу- 
чае это оператор присваивания, в правой части которого вызов функции зо%. 


Дружественные числа 


Необходимо написать сценарий, который для двух заланных натуральных 
чисел п и т определяет, являются ли они дружественными. Числа называ- 
ются дружественными, если каждое из них равно сумме делителей другого, 
не считая самого числа. 


Очевидно, что если число п является совершенным, то пара (п, п) является 
дружественной. Интересно рассмотреть случаи, когда числа л и т различны. 


При решении задачи удобно использовать функцию зипде1, которая для 
каждого натурального числа находит сумму его делителей без самого числа. 
Так как функция зииде1 используется для решения разных задач, то разум- 
но ее описание вынести во внешний файл. Пусть Бип4е].}5 — имя файла, в 
котором хранится описание функции зитае1 на языке Лауазсир!. Описание 
функции ах, определяющей, являются ли два числа дружественными, может 
быть таким: | 


Еорс®10оп Аг (п,м) 
{ таг $ = "" 

1Е (п==зитае]1 (п) && п==зопае] (п)) з=" дружественные" 

е15е з="не являются дружественными" 

гефоуп $5 


} 


Полностью создать программу читателю предлагается в качестве упражнения. 


Нахождение дружественных чисел 
из заданного диапазона ‚ 


Напишем сценарий, позволяющий найти все числа из заданного диапазона, 
которые образуют пару дружественных чисел. 


Параметр цикла 3 "пробегает" все числа от а до Ь из заданного диапазона. 
Для каждого числа 3 находится число, являющееся суммой делителей 3. Ес- 
ли это число попадает в рассматриваемый диапазон, то рассчитывается его 
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сумма делителей и сравнивается с числом 3. В текстовой переменной з+ 
формируется ответ в виде пар дружественных чисел. Сформированная стро- 
ка з+ выводится в текстовое поле формы, предназначенное для отображения 
результата, как показано на рис. 9.1. 


| Итерационные методы. Дружественные 
|! Файл Правка ‘Вид Избранное Сервис Справка” ^_^ 


Итерационные методы. Дружественные числа 


Левый конец интервала: | 
Правый конец интервала: [500 


= 


:} 2 Мой компьютер. ^ с р 


О ИИА ОНИ 


Рис. 9.1. Дружественные числа из заданного диапазона 


НТМЕ-код документа представлен в листинге 9.2. 
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Листинг 9.2. Итерационные методы. Дружественные числа 


<НТМГ> 
<НЕАО> | 
<ТТТЬЕ> Итерационные методы. Дружественные числа</ТТТЬЕ> 
<$сг1ре ГАМСОАС="Лауа$сг1ре"> 
<!-- // 
Еопсе1оп зитае1 (попфег) 
{ уаг $=1; 
уаг 1=1; 
Бог (1=2; 1 <= попфег/2; 1++) 
{ 1Е ( попрегк % 1 == 0) $ += 1} 


гебагп 5 
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уаг 56="" 
Еопсе1оп аг(о]) 
{ хаг а= оЪ).пат1.уа1ае 
уаг = о}.пам2.ха1лае 
уаг К 
Бог (уаг )=а; 3) <=; ++) 
{ К=эатАе1 (7) 
1Е (К ›>=а && К <= 5) 
{ 1Е (5а1ае1 (К) == 7) 
{ зЕ+= 9+" и" +К+"\Ее\о" } 


} 
//--> 
</зсг1рЕ> 

</НЕАО> 
<ВОПУ> 


<Н4> Итерационные методы. Дружественные числа</Н4> 


<РГОВМ папе="ЁЕогт0"> 


<рге> 


Левый конец интервала: <1праЕ Еуре="%ехе" $12е=8 паще="пиат1"> 


Правый конец интервала: <1при® $суре="бехе" $12е=8 пате="пит2"><Ьг> 


<1прае фуре="раефоп" уа}ае=Выполнить 


опС11ск="ат (Еохт0О); 1Е ($%=='') {5Е='нет'!}; 


{015.Еогм. гез.уа]ае=зе"><ру> 


Пары дружественных чисел<Ьг> 


<фехеагеа со0о15$=30 гомз=4 папе="гез"> </бехсагеа><Р> 


<1приЕ буре="гезее" уа]ае=Отменить опС11ск="зЕ=''"> 


</рге> 
</ЕОВМ> 
</ВОрУ> 
</НТМГ> 
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При выполнения сценария в качестве ответа поступают все совершенные 
числа, и каждая из пар дружественных чисел встречается два раза. Для того 
чтобы исключить такие ситуации, изменим функцию аг, добавив в нее до- 
полнительную проверку: к>). Теперь в случае, когда задан интервал от | до 


500, будет выведена лишь одна дружественная пара: 220 и 284. 
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Вычисление факториала: вариант 1 


Напишем программу, определяющую значение факториала заданного нату- 
рального числа. 


Напомним, что я! = 1х2х...х(и-Г)жи. Будем использовать переменную :{ для 
накапливания сомножителей. До выполнения цикла переменной Е присваи- 
вается значение |, затем в теле цикла полученное значение Е умножается на 
1. После того как параметр цикла 1 "пробежит" все значения от 2 до лв пе- 
ременной г будет вычислено значение п!. 


НТМГ-код представлен в листинге 9.3. 


: Листинг 9.3. Итерационные методы. Вычисление факториала — | | 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Вычисление факториала</ТТТЬЕ> 
<5сг1рЕ ]1апацаде="Зауа$сг1р®"> 
<!-- // | 
ЕопсЕ1оп Еас®1 (ор) 
{ п=ор).пим.уа1ае 
уахг Е=1 
Еог (ухаг 1=2; 1 <= п; 1++) {Е = Е%1} 
оь7 .гез.уа]ае=Е 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОрУ> 
<Р> Итерационные методы. Вычисление факториала</Р> 
<РОВМ папе="Ёох1 "> 
Введите натуральное: <1прие суре="кехе" $12е=8 папше="пам"> 
Вычисленное значение: <1праЕ буре="ЕехЕ" $1хе=8 паме="гез"><Вг> 
<1приё вбуре="раЕфоп" уа1ае=Выполнить опС11ск="ЕасЕ1 (Ёотта1) "><рх> 
<1приф Есуре="гезее" уа]пе=Отменить> 
</ЕОВМ> 
</ворУу> 
</НТМЪ> 
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Вычисление факториала: вариант 2 


Приведем еще один пример вычисления значения факториала. Опишем 
функцию Еас+1, В КОТОрой организовано накапливание значения факториа- 
ла способом, отличным от того, что был рассмотрен в предыдущем примере. 
Обратите внимание на оператор цикла: 


Еопс®1оп Ёасф2 (п) 
{ уаг Е=1 
ог (уаг 1=п; 1 > 1; 1--) {Е = Е*1}; 
хесагп Е 


} 


В функцию Еас+2 передается значение параметра (а не имя формы; как в 
предыдущем примере), полученный после выполнения функции результат 
записывается в соответствующее поле формы. Значение параметра обработ- 
ки события получается с помошью оператора присваивания, при помощи 
которого осуществляется запись в поле результата. Полностью программа 
выглядит так, как представлено в листинге 9.4. 


‚Листинг 9.4. Вычисление!  — | 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Вычисление п!</ТТТЬЕ> 


<5сг1ре 1ападааде=" Лауа$сг1ре"> 


<!-- // 
Еопс®10оп Гас®2 (п) 
{ уаг Е=1 
Гог (чаг 1=п; 1 >= 1; 1-=1) 
{ Е = Е*а } 
хегагп Е 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 


<Р> Итерационные методы. Вычисление факториала п!</Р> 
<ЕОВМ папе="Еогт1"> 
Введите натуральное: <1при® $уре="вехе" 512хе=8 паме="пои"> 


Вычисленное значение: <1пра®е буре="сехе" $17е=8 паме="гез"><рг> 
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<1приЕ Еуре="рае$оп" уа1ае=Выполнить 
опС11ск="Еотта1.гез.уа]ае=ЁЕас®2 (Еогт1 .пим.уа11е) "><Вг> 
<1прие туре="гезее" уа]ае=Отменить> 
</ЕОВМ> 
</вВорУ> 
</НТМЬ> 


Вычисление п!! 


Напишем сценарий, который по заданному натуральному числу п вычисляет п!! 


Напомним, что п!! = 1х3х...хи, если п нечетно, и п!! = 2х4х...хи, если п чет- 
но. Опишем функцию Еас+3, решающую задачу: 
Еопсе1оп Рас®е3З (п) 
{ уаг Е=1 
Гог (уаг 1=п; 1>1; 1-=2) {Е = Е*1}; 
гесагп Е 


} 


Обратите внимание на выражение, в результате выполнения которого должно 
меняться значение параметра цикла. На каждом шаге итерации значение па- 
раметра уменьшается на 2. Полностью сценарий представлен в листинге 9.5. 
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Листинг 9.5. Вычисление значения п! _ 
«НТМт> 
<НЕАТ> 


<ТТТЬЕ>Вычисление значения п!!</ТТТЬЕ> 


<5сг1рЕ 1апачаде="Фауа$сг1р®"> 


<!-- // 
Еопсе1оп  Еас%З (п) 
{ таг Е=1 
Гог (хаг 1=п; 1 >= 1; 1-=2) {Е = Е*1} 
гебагп Ё | 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 


<Р> Итерационные методы. Вычисление п!!</Р> 
<ЕОЁМ паме="Еогт1 "> 
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Введите натуральное: <1праЕё Еуре="$ехЕ" $17е=10 папе="пиаю"> 
Вычисленное значение: <1приЕ $уре="$ехе" $172е=10 папе="гез"><рг> 
<1прие суре="рие®оп" уа1ае=Выполнить 
опС11ск="Еотта1 .гез.уа1ие=ЁЕас®З (ЁЕогт1 .пиам.уа1оае) "><Вг> 
<1приЕ Еуре="гезее" уа]ае=Отменить> 
</КОВМ> 
</ВорУ> 
</НТМГЬ> 


Движение точки вдоль ломаной 


Точка движется по линии, изображенной на рис. 9.2, перемещаясь за один 
шаг на одну клетку. Известны целочисленные координаты (х, у) точки в не- 
который момент времени. Напишем программу, определяющую координаты 
точки через заданное число шагов. 


Рис. 9.2. Траектория движения точки вдоль ломаной 


Проведем прямые, соединяющие точки ломаной. Если значения координат 
х и у совпадают, следовательно, точка лежит на прямой, описываемой урав- 
нением у=х, и следующий шаг вдоль ломаной должен быть вправо. Если 
же значения координат х и у связаны соотношением у = х-1, то точка вдоль 
ломаной должна сместиться вверх. Мы описали только один шаг передви- 
жения. Чтобы узнать координаты точки через несколько шагов, в программе 
используется цикл. В функции з+ер вычисляются и записываются в нужные 
поля формы конечные координаты (листинг 9.6). 


: Листинг 9.6. Движение точки вдоль ломаной _ 
<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Движение точки вдоль ломаной</ТТТЬЕ> 
<5сг1ре 1апацаде="Тауа$сг1р®"> 


<!-- // 
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Еорсф1оп з$ер(оЬ);} 

{ уаг х=Мопег (о5].х.уа1ае) 
уаг у=Мопрег (о5].у.уа1ае;) 
уаг п=ор).п.уа]ае | 
Бог (уаг 1=1; 1 <= п; 1++) 

{ 1Е (у==х) х += 1 
е15е 1Ё (у==х-1) у+=1 } 
о57 .пемх.уа1це=х 
ор) .пему.хуа1ле=у 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
<Р>Движение точки вдоль ломаной</Р> 
<рге> 


<РГОВМ папе="Еоут1"> 


Введите координату по оси х: <1праЕ вуре="Еехе" $12е=8 папе="х"><рг> 
Введите координату по оси у: <1приЕ Еуре="вехе" $12е=8 папе="у"><рг> 
Введите число шагов: <1праЕ фуре="6ехе" з12е=8 папе="п"><рг> 


<1праЕ суре="БоЕ$оп" уа]ае=Выполнить опС11скК="5$ер (Еопт1) "><ртг> 
<Р>Координаты точки в конце шага</Р> 
По оси х: <1приЕ буре="$бехе" $5172е=8 папе="пемх"><Вг> 
По оси у: <1приаЕ $уре="кех®" $12е=8 папе="пему"><вг> 
<1приЕ буре="гезее" уа]ае=Отменить> 
</РОВМ></рге> 
</ВОору> 
</НТМ!> 


Вычисление суммы чисел, кратных 7 


Напишите функцию, которая определяет сумму всех чисел, кратных 7 в за- 
данном интервале [т; и]. 


В качестве начального значения параметра цикла в функции зеер выбирает- 
ся ближайшее целое к значению правого конца промежутка. На каждом 
шаге выполнения тела цикла значение параметра уменьшается на 7. Цикл 
завершает свою работу, когда значение параметра цикла меньше значения 
левого промежутка. Полностью программа описана в листинге 9.7. 
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| Листинг 9.7. Сумма чисел, кратных 7, в заданном интервале _ `` 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Сумма чисел, кратных 7, в заданном интервале </ТТТЬЕ> 
<$сг1ре 1апачаде="Зауа$ сг1р®"> 
<!-- // 
РорсЕ1оп  зим7 (м, п) 
{ уахг $=0 
Рог (уаг 1=10-10%7; 1 >= Ш; 1-=7) 
{ $ +=1 } 
гееагп $5 
} 
//--> 
</зсг1рЕ> 
</НЕАО> | 
<ВОПУ> 
<Р>Определение суммы чисел, кратных 7, в заданном интервале</Р> 
<рге> 
<РОВМ патме="Ёотт1"> 


Введите левую границу интервала: <1праЕ фуре="$ехе" $12е=8 
папе="1еЕ"><Вг> 


Введите правую границу интервала: <1праЕ $уре="%ехе" 512е=8 
паще="г19"><ру> 


Вычисленная сумма: <1праЕ буре="$ехе" $12е=8 
папе="гез"><Втг> 


<1прае Еуре="БоаЕоп" уа]ае=Выполнить 

опС11ск="Еотта1. гез.уа1ае=зим7 (Еогт1.1еЁ.уа]1щае, Еогт1 .х19.уа]ае)"><Вту> 
<1приё суре="гезее" уа]ае=Отменить> 

</ЕОВМ> 

</рхе></вору></нтмь> 


Сумма элементов последовательности 


Напишем программу, которая по заданному целому значению ля и вещест- 
я х! 

венному х находит сумму 5 = У —-. Предположим, что уже найдена сумма 
2—1" 

первых и—1 элементов, последнее слагаемое обозначим через а. Следующий 

элемент последовательности определяется по формуле ахх/п. 
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НТМГ-код представлен в листинге 9.8. 


Листинг 9.8. Сумма элементов последовательности _ 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Сумма элементов последовательности</ТТТЬЕ> 
<$сг1ре 1апацаде="Зауа$сг1ре"> 
<!-- // 
ЕапсЕ1оп зим(х,п) 
{ уаг $=0 
уаг а=1 
Бог (уаг 1=1; 1 <= п; 1++) 


{ а=а*х/1; зч+=а } 


хебахгп 3 
} 
//--> 
</зсх1ре> 
</НЕАБ> 
<ВОПУ> 


<Р>Сумма элементов последовательности </Р> 
<рге> 
<ГОКМ папе="Ёохт1"> 
Введите значение х: <1приЕ суре="сехе" $12е=8 папе="1еЁ"><Вг> 
Введите число элементов: <1праЕ вуре="$ехе" з1хе=8 папе="г19"><Вг> 
Вычисленная сумма: <1приЕ Суре="$ехе" $12е=12 паще="гез"><Вг> 


<1праЕ суре="БаЕЕоп" уа1ае=Выполнить 


опС11ск="Еоги1.гез.хуа]ле=зим (Ёот1.1еЁ.уа]1лае, Ёоги1 .г19.уа1ае) "><рхг> 
<1приЕ суре="гезее" уа]ае=Отменить> 
</ЕОВМ> 
</рге> 
</ВОрУ> 
</НТМГ> 


Выбор и размещение изображений 


Напишем сценарий, в результате выполнения которого осуществляется вы- 
бор изображений и размещение их в заданных окнах в порядке предпочте- 
НИЯ. 
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После щелчка мышью по названию изображения в левой части экрана в 
свободном окне появляется соответствующее изображение. Если все места 
заняты как на рис. 9.3, а пользователь выбирает название изображение, то 
происходит замена в текущем окне. 


Е] Выбор рисунка в соответствующее окно - Мсгозой роетте Екриотея и сжи 


| Файл _ Правка О Ва Избранное _ Сервис Справка . И. 


Выберите рисунки в порядке предпочтения 


Рис. 9.3. Выбор изображения из заданного списка 


Названия изображений задаются с помощью тега <зе1ес*>. При выборе ва- 
рианта соответствующее изображение загружается в свободную область про- 
смотра. Значение глобальной переменной к определяет номер свободной 
области. Если заполнены все области просмотра, то очередное изображение 
опять помещается в первую область, замещая находящееся там изображение. 
Переменная 1еп используется при вычислении числа названий изображе- 
НИЙ, Т. е. элементов в теге <зе1есф>. 


Функция геЕ очищает все окна. Сценарий решения задачи приведен в лис- 
тинге 9.9. 


| Листинг 9.9. Выбор 1 и размещение ‘изображений 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Выбор и размещение изображений</ТТТЬЕ> 
<$сг1рЕ> 
<!-- 
уаг К=0 


хаг 1еп 
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Еопсё1оп сб_р1с® (пам) 
{ 1еп=( (Зосчмепе .Еогт1) .е]1етерх$[0]).1епаЕв-1 
уаг п=пит* 100 
Аосимеп* .1тадез [К] .згс="расеяте"+поам+".41Е". 
досимепе . Еотиз [0] .е1етепе$ [К+1] .уа1ае=м 
1Е (К < 1е0-1) к+=1 
е15е К=0 
| 
Еопсё1оп геЕЁ() 
{ Леп= ( (Чосомепе.Еоги1) .е1етепе$[0]).1епаерЬ-1 
К=0 
Гог (уаг 1=0; 1 < 1еп; 1++) | 
{ аосчмепе. 1тадез [1] .згс="р1сеагео. 1" 
аосцщепе . Еогт$ [0] .е1етеп+$ [1+1] .уа1ае='' } 
} | . 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВООУ Ьачсо1ог="#еаЕ5еЁ">. 
<Н4 а119п=сепеег>Выберите рисунки в порядке предпочтения</Н4> 
<РОКМ папе="Еогт1">. 
<ТАВЬЕ рогаег=1> 
<ТВ> 
<ТО> 
<5е1есЕ паще="р1се" з12е="7" 
опСрапае="сВ р1с® (Ёог1.р1се.\ха1ае)"> 


<ор&1оп уа1ае="0">Нет </орЕ1оп> 
<орЕ1оп уа]ае="1">Дом </ор&1оп> 
<орЕ1оп уа1ае="2">Книги == </ор1оп> 
<орЕ1оп уа]ае="3З">Письмо </орЕ1оп> 
<ор®1оп уа1ае="4">Краски </орЕ1оп> 
<орЕ1оп уа1ше="5">Вопрос </орЕ1оп> 

‚ <орЕ1оп уа]1]ае="6">Дерево </орЕ1оп> 

</зе1есЕ> 

</Тр> 


<ТР а119п=сепфег><1щ9 згс="р1сбагео.а1Ё" илакв=70></тр> 
<ТР а119п=сепеег><ииа згс="р1свикео.а1Е" м1абв=70></тТрО> 
<ТО а119п=сепЕег><Ша зкс="расеиге0. 4" итАаер=70></тТрЬ> 
<ТР а119п=сепеег><19 зкс="р1сбаге0.91Е" изасп=70></тЬ> 
<ТО а119п=сепеехг><1та згс="р1сЕиге0.а1Е" и1Аер=70></тЬ> 
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<ТО а119п=сепфег>< ма згс="р1сбагео.а1Е" илаЕб=70></тр> 


папе="гез1" 
папе="гез2" 
папе="гез3" 
папме="ге$4" 
папе="гез5" 


папе="тез6" 


$12е=8></ТО> 
312е=8></ТО> 
$17е=8></ТО> 


$17е=8></тТр> 


$517е=8></ТО> 
517е=8></ТБ> 


<1приЕ фуре="Баекоп" уа]ае="Обновить" опС11ск="геЕ () "> 


</ТВ> 

<ТВ> 
<Тр м1ав=50>стоимость</ТЬ> 
<ТР м1аЕВ=50><1проЕ вуре="{ех®" 
<ТВ мзаЕр=50><1прие куре="вехе" 
<ТВ изаер=50><1прие Еуре="%ехе" 
<ТВ м1аёр=50><1приЕ суре="%ехе" 
<ТО м1аер=50><1приЕ Еуре="%ехе" 
<ТР м1АЕВ=50><1праЕ куре="фехё" 

</ТВ> 

</ТАВЬЕ><Ьг> 
</ВОрУ> 
</НТМГ> 


Выбор критериев качества 
чтения лекций 
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Пусть качество чтения лекций оценивается по различным критериям. Требу- 
ется написать сценарий, который обеспечивает пользователю выбор пяти наи- 


более важных с точки зрения пользователя критериев из заданного списка. 


|| Фа | Правка Вид Избранное. Сервис. Справка . р: 


жечь ох 


| Выбор пяти критериев качества чт 


Качество чтения лекции 


Выберите пять основных критериев качества чтения лекций из предложенного 


списка. 


Перечислите их в порядке важности. 


Соответствие программе 
Доказательность изложения 
Учет специфики аудитории 
Целостность и логичность 
‘Полнота изложения материала 
Использование эффективных методов 


о Обновить’. 


х эымиыд-: —-.-——^ 
42] Готово — 


Доказательность изложения 
Целостность и логичность 


Использование эффективных методов 


Отражение современного уровня 
Полнота изложения материала 


а лая делл. 


ыы пели пора пешаникт еле 


пет ро 


—— вы гг И 
ВИ Е Мой компьютер 


Рис. 9.4. Качество чтения лекций 


ИИ 


ения лекций - МиестозоН Ищете! Ехр/огег 
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Критерии оценки качества задаются с помощью тега <зе1ес*+>. Как только 
пользователь выбирает очередное значение качества, оно переносится в пра- 
вое поле, как на рис. 9.4. 


Разрешено выбрать не более пяти значений качеств, при попытке указать 
шестое выводится предупреждающее сообщение. Кроме того, в сценарии 
предусматривается, что все выбранные качества различны. Если делается 
попытка повторно выбрать некоторый критерий, то пользователь об этом 
будет предупрежден. НТМЕ-код со сценарием представлен в листинге 9.10. 
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| Листинг 9.10. Выбор пяти критериев качества чтения лекций . 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Выбор пяти критериев качества чтения лекций</ТТТЬЕ> 
<5сг1ре 1апачаде="Дауа$ сг1ре"> 
<!-- // 
уаг п=0 
Еапсе1оп шоу (057, м) 
{ уаг $= ( (05) .е1етепеЕ$ [0]) [п] ).сехЕ 
уаг $1 
уаг р= ЁЕа1зе 
1Е (п<=(о5).е1етепе$[1]).1епаеЪ-1) 
{ Еог (уаг 1=0; 1 <= п-1; 1++) 
{ $1= ((05].е1етепе$[1]) [1]) .сех® 
1Е (5$==51) 
{ а1ехге ("Вы уже выбирали этот критерий"); р= ТВае; Ьгеак } 
} 
1Е(!р) 
((05) .е1етмере$ [1]) [п]).ЕехЕ= ((о57.е1етмепез[0]) [м]).6ехе; п= п+1 
} 
е1зе а]еге ("Вы уже выбрали необходимое число критериев") 
} 
Еопс®1оп  геЕЁ(о5]) 
{ п=0 
Еог (уаг 1=0; 1 <= (05).е1етепез[1]).1епаеВ-1; 1++) 
{ ((о5).е1етереёз[1]) [1]) .кехе=" | "} 
} 
//--> 
</зсг1ре> 
</НЕАО> 


Глава 9. Оператор цикла арифметического типа 245 


<ВООУ Басо1ог="#еаЁ5еЁ" опГоаЯ="геЕ (Ёоги1) "> 
<РГОВМ паме="Еотти1 "> 
<НЗ а119п=сепЕег>Качество чтения лекций</НЗ> 
<Р>Выберите пять основных критериев качества чтения 
лекций из предложенного списка. 
<рг>Перечислите их в порядке важности. </р> 
<5е1есЕ паме="ЕотиЧафа" $12е=6 
опСпапае=мотх (Ротгт1 , Еогта1 . ЕогиЧа®а.хуа]ае) > 
<ор&1оп уа]ае=0>Соответствие программе 
<ор®1оп уа1ае=1>Доказательность изложения 
<оре1оп уа1ае=2>Учет специфики аудитории. 
<орЕ1оп уа1ае=3>Целостность и логичность 
<орЕ1оп уа1ае=4>Полнота изложения материала 
<орЕ1оп уа]1де=5>Использование эффективных методов 
<орЕ1оп уа1ае=6>Отражение современного уровня 
<оре1оп уа1ае=7>Владение терминологией 
<ор®1оп уа1ае=8>Полнота использования времени 
<ор&1оп уа1ае=9>Тематическая завершенность 
<орЕ1оп Уа1ае=10>Использование современных технологий 
</зе1есЕ> 
<5е1есЕ паме="Еогагез" $1хе=6> 
<оре1оп уа1ае="п1"> 
<орЕ1оп — уа1ае="п2"> 
<орЕ1оп уа1ае="п3"> 
<оре1оп \а1ае="п4"> 
<ор®*1оп чуа1ае="п5"> 
</зе1ес&><г> 
<1приЕ суре="гезее" уа]ае=Обновить опС11ск="геЕ (Ёогт1) "> 
</ЕОВМ> 
</вору> 
</НТМЬ> 


Анкета читателя 


Напишем сценарий обработки анкеты читателя. Исследуемые характеристи- 
ки журнала задаются в левом столбце анкеты. Для работы с анкетой чита- 
тель должен выделить характеристику и нажать кнопку Добавить. В правом 
столбце должен появиться соответствующий текст. Если из правого столбца 
требуется удалить текст, то его надо выделить и нажать кнопку Удалить. Ес- 
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ли в правом столбце нет выделенного текста, то при нажатии кнопки Уда- 
лить из списка убирается первый элемент. Если правый столбец пустой, то 
при нажатии кнопки Удалить выдается сообщение о том, что список пуст. 
На рис. 9.5 изображен вид анкеты читателя с уже выбранными характери- 


стиками. 


пота у 


| Файл. Правка _ виа | 


Е Работа со списками. Карасев А. - Местозой имело! Е Екрроне! 


Анкета читателя 


характеристики, которые Вас привлекают. 


па ее тва миетельььь 


ИДизайн и оформление 
Связь с читателями 


епутация издания 
изайн и оформление 
егулярность издания 


в] 'Мой компьютер 


Рис. 9.5. Работа с анкетой читателя 


Функция ааа помещает в правый список на свободное место выбранный 
элемент левого списка. Функция де1 удаляет из второго списка выбранный 
элемент. При этом с помошью цикла все остальные элементы списка сдви- 


Ггаются вверх, и изменяется длина второго списка. 


фобоуоо осо ово осо ооо осо осо ооо ори оо ору оо ро ово ооо ото о ооо оо чело ровоо во оо вор ос оосоо вор ооооос ФОНО ООО ООО О ВОРОТ Оооо о ооо воров ао оон рр ооо вовововотов 
. 


<НТМЪ> 
<НЕАБ> 
<ТТТЬЕ>Работа со списками. Карасев А.</ТТТЬЕ> 
<$сг1рЕ> 
<!-- 
Еопс®1оп ааа (о) 
{ ор.11562.1епаер++; 


ор.11$Е2 [оБ.11562.1епаЕВ-1].6ехе=ор.11$%1 [Мопрег (ою.11$%1.уа1]ае)].$ехе; 


оБ.11$5%2 [05.115$62.1епдЕВ-1].уа1ще=ор. 113Е2.1епа-1} 
Еопсе1оп ае1 (оЪ) 


В левом столбце представлены некоторые характеристики журнала. 
Сформируйте в правом столбце в порядке предпочтения те. 


Качество информации 


АН тои $0004 ФО ЗИЫИНЫИ ЧАСАМИ СЧС О ус ЧЕ НИЗННМИНОО ИО НИаоин. ИООиЬКИАЕ АКНОвОи ини ЧЫК ФСО ры рьжчижи < кан. |. 


парча чили ^ -.- ‚уедет моими оирмото тодалая отдали тортом оао леев томно лоаоо сил, | моы дана зудом мтьльллл м лщкджь колл кол лова замка. ини пех 
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ы 


4 


Листинг 9. 11. Работа со списками: ‚ добавление и удаление элементов _ | 
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{ 1Е (!(06.11362.1епаЕП==0)) 

{ Еог(1=Мопьех (ор.11$62.уа1ае) ;1+1<ор.11$%2.1епаеП;1++) 
оЬ.1$62[1] .ЕехЕ=ор.Ъ1$2 [1+1] .6ехе; 
оБ.11362.1епаеп--} 

е1зе 

а1ег* ("В списке нет элементов для удаления") 
} 

//--> 

</зсг1рё> 
</НЕАО> 
<ВОРУ Бдсо1ог="ЕЗЕЗЕЕ"> 
_ <«ЕОВМ паще=Ь1з+> 

<р3 а11ап=сепкег>Анкета читателя</\3> 


<Р а11ап=7)2$Е1Еу> 


В левом столбце представлены некоторые характеристики журнала. 


Сформируйте в правом столбце в порядке предпочтения 
те характеристики, которые Вас привлекают. 
</Р> 
<ТАВЬЕ Богаег=2 се1]зрас1па=3> 
<ТВ> 
<ТР гомзрап=2> 
<5е1есф пате=Т1${1 $1хе=6> 
<ор&1оп уа1пе=0>Достоверность информации 
<орЕ1оп уа1ае=1>Стиль подачи материала 
<ор1оп уа1ае=2>Качество информации 
<орЕ1оп уа1ие=3>Репутация издания 
<оре1оп уа1ае=4>Дизайн и оформление 
<орЕ1оп уа1ае=5>Регулярность издания 
<орЕ1оп уа1ае=6>Связь с читателями</оре1оп> 
</зе1ес*+> 
<ТР а119п=п1991е><1прае Еуре=Баееоп уа]ае="Добавить" 
опС11сК=а@А (11$%)> 
<ТР гомзрап=2> 
<зе1есЕ паме=Ь1$е2 $12е=6> 
</зе1есЕ> 
<ТВ> 
<ТР а11ап=м1991е><1праЕ Еуре=раЕФоп уа1ае="Удалить" 
опС11сКк=ае1 (115%) ></ТО></ТВ> 
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</ТАВЬЕ> 
</ЕОВМ> 
</ВОПУ> 
</НТМЫ> 


Упражнения 


1. Напишите программу, в которой определяется, является ли номер шести- 
значного автобусного билета "счастливым", т. е. таким, в котором сумма 
цифр на нечетных местах равна сумме цифр, расположенных на четных 
местах. 


2. Напишите сценарий, в котором определяется количество "счастливых" 
шестизначных автобусных билетов, т. е. таких, в номерах которых сумма 
первых трех цифр равна сумме трех последних. 


3. Напишите сценарий, в котором определяется, можно ли натуральное 
число л представить в виде суммы двух квадратов. 


Глава 10 


Оператор Гог... т 


Оператор Гог...1п используется для анализа свойств объекта. Синтаксис 
оператора: 


Рог (1 ат <) {3$} 
где — переменная цикла, + — объект; 5 — Последовательность операторов. 


В результате выполнения оператора цикла производится перебор свойств 
объекта. Переменная цикла при каждом повторении содержит значение 
свойства объекта. Количество повторений тела цикла $ равно числу свойств, 
определенных для объекта +. 


Определение свойств элемента формы 


Напишем сценарий, с помощью которого можно определить свойства эле- 
мента формы "поле ввода многострочного текста". 


2 Операции над объектами. Определен ще. свойс 


: ‘Файл ^ Правка _ Вис -. Переход Избранное СпраЕ * 


Определение свойст объектов 


циаеЁ1пеа 
.песноЯя = чпаеЕ1пеЯ 
.паюе = ааса 
.ОЕЕзесНе1ачнос = 166 
.ОЕЕЗесЬеЕх = 52 
.ОЕЕзесРагепь = [об]ест] 
.ОЕРЕЁзесТор = 94 
.ОЕЕЗеЕС ИАН = 262 
.опаЁтегараасе = пц11 
.опрефогеараасе = пц11 


Очистить | 


`  ‚ Я Мой компьютер 


Рис. 10.1. Свойства поля для ввода многострочного текста 
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Свойства объекта с помощью оператора цикла формируются в строке 
гези1%, затем после просмотра всех свойств значение строки гези1& поме- 
щается в поле ввода многострочного текста (рис. 10.1). 


Сценарий определения свойств текстового поля приведен в листинге 10.1. 


„Листинг 10.1. Операции над объектами. Свойства текстового пля _ 
<НТМГ> 
<НЕАО> 


<ТТТЬЕ>Операции над объектами. Свойства текстового поля</ТТТЬЕ> 
<$сг1рЕ ]1апачаае="Фауа$сг1ре"> 
<!-- // 
Ропсе1оп ргорор) (057) 
{ уаг геза]1 = "" 
ог (уаг 1 1 961) 
{ геза16 += об].Аафа.уа1ае +"." +1+ " = " +(05).Чафа) [1]+"\г\п"} 
тези1 += "\п\г" 
Еотт1 .Чафа.ха1ае=ге$\1е 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ Радсо1ог=ЕВЕВЕЕ> 
<СЕМТЕВ> 
<Н4>Определение свойств объектов</НА> 
<РГОВМ паме="Еогт1"> 
<1праЕ суре="БаЕЕоп" уа1ае="Выполнить" опС11ск="ргорор) (Ёот1)"><Вг> 
<сехфагеа папе="аафа" со1$=30 гомз=10 14=1>Текст</$ехкагеа><Вг> 
<1праЕ туре="гезее" уа1]ае=Очистить> 
</СЕМТЕВ> 
</ЕОВМ> 
</ВОрУ> 
</НТМГ> 


Глава 10. Оператор Гог... п | 251 


Упражнения 


1. Напишите программу, определяющую все делители заданного натураль- 
ного числа. 


Напишите программу, которая выводит первые и чисел Фибоначчи. 


3. Напишите программу, которая определяет корень уравнения вида Хх) = 0 
методом Ньютона. 


4. Напишите программу вычисления числа размещений из т элементов по п. 
5. Напишите программу, вычисляющую число сочетаний из т элементов по п. 


Напишите сценарий, при работе которого вводятся координаты точки на 
плоскости, и определяется число точек, попадающих в заштрихованную 
область (рис. 10.2). 


Количество точек, попадающих в заданную область 


Введите значение К: [2 О 


Точка с координатами: || У В. _ ‚Ввод. 
>’ Вычислить 


Число точек в области: 
` Сброс. 


Рис. 10.2. Область и точка 


7. Напишите сценарии, определяющие свойства элементов: флажка, пере- 
ключателя, списка, кнопки. 


8. Точка движется вдоль ломаной. Напишите сценарий, определяющий ко- 
ординаты точки через заданное число шагов. Вид документа приведен на 
рис. 10.3. 
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ЕТ С: \Мои ‘документы\1 Очпражн\ 1 0упражн. № - МистозоЯ тесте Ех. . М3 | 


_ Правка :: Во | ‚Избранное _ _ Сервис. _ Справка. ты р 


-10 -9 8-7 56 


Движение точки начинается с координаты (0,2). 
Положительное число шагов - движение вправо. 
Отрицательное число шагов - движение влево. 


Число шагов: В В 


Отменить | 


Рис. 10.3. Движение точки в заданном направлении 


Глава 11 


Представление 
и обработка дат 


Встроенный объект раса применяется для представления и обработки даты 
и времени. Он не имеет свойств, но обладает несколькими методами, позво- 
ляющими устанавливать и изменять дату и время. В языке Лауа$сири дата 
определяется числом миллисекунд, прошедших с 1 января 1970 года. 


Объект рафа создается оператором пем с помощью конструктора раха. Если 
в конструкторе отсутствуют параметры, то значением пем Рата() будет те- 
кущая дата и время. Значением переменной пу аафе1, определенной сле- 
дующим образом: 


уаг пу Ча{а1 = пем Рафа () 


будет объект, соответствующий текущей дате и времени. 


Параметром конструктора пех Рафа может быть строка формата "месяц, 
день, год часы:минуты:секунды". Опишем переменную пу _Чафа2 И При- 
своим ей начальное значение: 


уаг ту Чафа2 = печ Бафа("Ку, 12, 1978 16:45:10") 


Переменная му _даха2 определяет дату 12 февраля 1978 года и время 16 часов 
45 минут и 10 секунд. Значения часов. минут, секунд можно опустить, в 
этом случае они будут равны нулю: 


уаг му Чафа3 = пем Баба ("Кер, 12, 1978") 


Параметры конструктора пеи Рака могут определять год, месяц, число, вре- 
мя, минуты, секунды с помощью чисел. Дату 12 февраля 1978 года и время 
16 часов 45 минут и 10 секунд можно задать так: 


уаг пу Чафа4 = пем Баба (78, 1, 12, 16, 45, 10) 

Если время опустить, то описание будет следующим: 

уаг шу аафа5 = пем Рафа (78, 1, 12) 

Все числовые представления даты нумеруются с нуля, кроме номера дня в 


месяце. Месяцы представляются числами от 0 (январь) до 11 (декабрь), по- 
_ этому второй параметр при задании переменных пу _дафа4 И му_даха5 равен 1. 
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Методами объекта раке можно получать и устанавливать отдельно значения 
месяца, дня недели, часов, минут и секунд. 


С Метод зеераее возвращает число в диапазоне от | до 31, представляющее 
число месяца. 


С Метод дееношгз возвращает час суток. Значение ‘возвращается в 24- 
часовом формате от 0 (полночь) до 23. 


С) Метод чеем1пакез возвращает минуты как целое от 0 до 59. 
О Метод зее5есопаз возвращает число секунд как целое от 0 до 59. 


В следующем примере эти методы используются для формирования теку- 
щего времени. 


Определение текущего времени 


Напишем сценарий, который определяет текущее время и выводит его в 
текстовое поле в формате "чч:мм:сс", как на рис. 11.1. 


| Е: Определение + времени - Мисгозой петлей роге 


НИ ды жж оо одекЕНЯ их 


|| 3 Файл. „Правка 


Рис. 11.1. Определение времени 


В переменной гез формируется строка, которая затем будет отображена в 
Поле гезе формы с именем Еоги1. Для того чтобы уточнить время, следует 
еще раз нажать кнопку Время и т. д. Полностью сценарий приведен в лис- 
тинге 11.1. 
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я : : . . ® 
Фора о ово ооо ооо ооо ро соо ро ооо фо оо с ооо ра о ово оо ра оо соо ооо ово соо нос оо ооо о чото вос ово оововосо роса ово оо фонов ооо оо ооо ос ово ооо ооо ооо ос ооо во ооо оо соо ооо оо вова осор ово ооо восовов - 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Определение времени</ТТТЬЕ> 
<5сг1ре 1ападцаде="Дауа5ст1ре"> 
<!-- // 
ЕБапселоп с1() 
{ уаг а=аосатепе _ 
уаг +=пем Рае () 
уах Р=е.аееНочг$ () 
уаг п=е.деЕМ1паеез () 
уаг $5=е.деЕ5есопа$ () 
уахг гез="" 
1Е (В < 10) 
тез += "0" + В 
е]15е гез += В 
1Е (м < 10) гез += ": 0" 
е1зе гез += ":"+м 
1Е ($ < 10) гез += ":0"+5 
е15е ге += ":"+5 
А. Еогт1 .гез®. уатче гез 
‚ЕР иеоо+ О, 4001 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОРУ Расо1ог="#ЕЕЕЕСС"> 
<СЕМТЕВ> 
<]Мб згс=а1агиМНТ .а1Е><фг> 
При нажатии кнопки <В>Время</В>, Вы узнаете, который час 
<РГОВМ пате="Еогта1 "> 
<1праЕ суре="Баееоп" уа1]ае=Время опС11ск="с1 () "> 
<1прие суре="вехе" $12е=10 папе="гез®"><Бг> 
</ЕОВМ> 
</ВОрУ> 
</НТМ!> 
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Определение года, месяца, числа, 
дня недели и времени 


Можно сделать так, что через некоторый заданный период значение времени 
будет обновляться. Для этого можно использовать функцию зееТ1меоде 
("с1()", 3000). Напомним, что функция зееТ1меоче выполняет указанные в 
первом параметре действия по истечении интервала времени, задаваемого вто- 
рым параметром. В приведенном примере через три секунды будет снова осу- 
ществлен вызов функции с1, результат отобразится в поле хезе формы {огт1. 


Объект раза обладает методами, которые позволяют определить день неде- 
ли, номер месяца и год. 


С Метод деерау возвращает день недели как целое число от 0 (воскресенье) 
до 6 (суббота). 


С Метод веемопев возвращает номер месяца в году как целое число в ин- 
тервале между 0 (январь) и 11 (декабрь). Обратите внимание, что номер 
месяца не соответствует стандартному способу нумерации месяцев. 


С Метод декуеагх выдает год объекта. 


Использование описанных методов потребуется для решения следующей 
задачи. | 


Напишем программу, которая определяет год, название месяца, число, день 
недели и время текущей даты (рис. 11.2). 


Е] Определение года, месяца. числа, дня недели и времени - МистозоЙ 1. 15 Хх. 


№ Файл _Правка_ _ Ви Избранное. Сервис Справка о | | а: 


ое За ов сли ах а лесник я 5 


Для получения информации, нажмите соответствующую кнопку 


Год и 
Месяц [бюь о 
Число 1 
‚ День |[Рятница о 


—ераня 15081 08:06 


К ль вв лье. пах лее ини Аа он 


га. = м1 20 15:08: 06 ОТС+0400 2001 


Отменить | 


Рис. 11.2. Дата и время 
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- Для того чтобы по номеру дня, определяемому методом деерау, вывести на- 
звание дня, можно воспользоваться оператором выбора. Аналогично посту- 
паем и в случае вывода названия месяца. При щелчке по соответствующей 
кнопке получаем требуемое значение. НТМГ-код с описанным сценарием 
представлен в листинге 11.2. 


| Листинг 11.2. Определение года, названия месяца, числа, 
: дня недели и времени 


<НТМГ> 
<НЕАО> | 
<ТТТЬЕ>Определение года, месяца, числа, дня недели и времени</ТТТЬЕ> 
<зсг1ре 1аподаде="Зауа$сг1р®"> | 
<!-- // 
уаг Ч=Чоситепе 
уаг & = пем РВафе () 
ЕорсЕ1оп ЕБуеахг (оЪ)) 
{ уаг уеаг = ®.дефУеаг() 
ор7].Еуе.уа]лае = уеаг 
} 
ЕопсЕ1оп Етмоп (0Ь)) 
{ таг $ 
уаг попе = ®.дееМопев () 


$м1ЕсСН (поп®) 


{ сазе 0: $="январь"; Югеак; 
сазе 1: $з="февраль"; Бгеак; 
сазе 2: $з="март"; Ьгеак; 
сазе 3: $="апрель"; Югеак; 
сазе 4: $5="май"; ЮгеаКк; 
сазе 5: $="июнь"; Ьгеак; 
сазе 6: $="июль"; Ьгеак; 
сазе 7: $х="август"; Ьгеак; 
сазе 8: 5="сентябрь"; Бгеак; 
сазе 9: $="октябрь"; БгеаК; 


сазе 10: $="ноябрь"; БгеаКк; 
сазе 11: 5="декабрь"; Бгеак; 


} 


оЬ] .Еа.уа]ае = $ ‚ 
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Еапсе1оп ЕЧафе (оЪ]) 
{ таг а = &.деЕрате () 
ор] .ЕЧае.ха]1лае = а 
} 
ЕопсЕ1оп ЕЧау (057) 
{ уаг Ааау = &.десрау() 


уаг $ 
$\1ЕсП (ау) 

{ сазе 0: з="воскресенье"; ргеак; 
сазе 1: 5="понедельник"; БгеаК; 
сазе 2: з="вторник"; ЬгеаК; 
сазе 3: $="среда"; Ьгеак; 
сазе 4: $з="четверг"; Ьгеак; 
сазе 5: $з="пятница"; Ьгеак; 
сазе 6: $з="суббота"; ЬгеаКк; 


} 
оЬ].Еа.уа1ще = $ 


} 


Еипсе1оп с1 (057) 


{ уаг В = ®.дееНолчг$ () 
уаг шп = &.дееМапосез () 

‚ уаг 5 = &.деЕ5есопа$ () 
уаг гез = "" +В 
1ЁЕ (м < 10) гез += ":0"+и 
е15е гез += ":"+м 
1Е (5 < 10) гез += ":0"+5 
е1зе гез += ": "+5 


оЬ].с1о.уа]ае = гез 
} 
Еапс®1оп а1Ча*е (оъ1) 
{ оБ).а1аае.уа1оае = % } 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ Басо1ог="#ЕЕЕЕСС"> 
<Н4>Для получения информации нажмите соответствующую кнопку</Н4> 
<РГОВМ паме="ЁРогти1 "> 


<1праЕ Еуре="Баееоп" уа]ше="Год " опС11сК="Еуеаг (ЁЕог1) "> 
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<1приЕ буре="бехе" $12ё=20 папе="Еуе"><рг> 
<1праЕ Еуре="Баееоп" уа1ае=Месяц — опС11ск=" Епоп (ЁЕогт1) "> 
<1праЕ фуре="$ех®" $1хе=20 паме="Ем"><Бу> 
<1пру® суре="БоаЕбоп" уа1ае=Число — опС11сК="Едафке (Ёотта1) "> 
<1праЕ Еуре="бехе" з12е=20 паме="Еаа*"><рг> 
<1праё суре="раефоп" уа1ае="День " опС11сКк=" ЕЧау (Ёогт1) "> 
<1приз буре="вехе" $17е=20 папе="Еа"><Ьг> 
<1праЕ вуре="рабфоп" уа]ае=Время — опС]11ск="с1 (Ёог1) "> 
<1приё суре="$ехе" $17хе=20 паще="с1о"><НВА> 
<1приуе суре="БаЕоп" уа1ае=Дата опС11ск="а1Чафе (ЁЕота1) "> 
<1приЕ суре="$бехе" $17е=40 папе="а1За*"><НЕ> 
<1праЕ куре="гезее" уа]ае=Отменить> 
</ЕОВМ> 
</ВОРУ> 
</НТМГ> 


Определение рабочего и выходного дня 


Перечисленные ниже методы позволяют устанавливать различные значения 
для объекта рафе. 


О 


0 


Метод зефуеаг устанавливает значение года для объекта ра%е. Метод 
зеЕРафе устанавливает день месяца. Параметр должен быть числом в 
диапазоне от | до 31. 


Метод зеЕМопен устанавливает значение месяца. Параметр должен быть 
числом в диапазоне от 0 (январь) до 11 (декабрь). 


Метод эезхНоигз устанавливает час для текущего времени, использует це- 
лое число от 0 (полночь) до 23 для установки даты по 24-часовой шкале. 


Метод зе М1па&з устанавливает минуты для текущего времени, использу- 
ет целое число от 0 до 59. 


Метод зез5есопаз устанавливает секунды для текущего времени, исполь- 
зует целое число от 0 до 59. | 


Метод зесТ1ме устанавливает значение объекта рае и возвращает коли- 
чество миллисекунд, прошедших с 1 января 1970 года. 


Предположим, пользователь вводит год, название месяца и число. Требуется 
написать сценарий, в результате работы которого определяется, на какой 
день (рабочий или выходной) приходится заданная дата. В зависимости от 
дня недели в документе должен появляться соответствующий рисунок. На- 
пример, для рабочего дня документ будет иметь вид, как на рис. 11.3. 
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| Е Рабочий или выходной ‘день заланной ‚даты > | 


а КАКА ая 


_ Файл` Правка” Вид _Перекод”_ _ Избранное _ Справка | 


с: . р ие. ими лин. мл ем 


На какой день недели (рабочий или выходной) 
попадает заданная дата? 


Г. печь жи: Е лучниь мн» да теучае иена дщдлннени тосе ебу сане д ели вщие оное инь пледнитл: пезмь т пил елнекоке 1 


"Интеросующыя д дата | попадает на ._ 


$; 


в 


Е. 


п ия ля о имели. ее ее м еее 


Иа - 


р 


‚число: [2 к 


ия еле о м о лены учением 


лек сари повазтееакх кока оозащань сое чиаь а. о отмь кодаля 


Рис. 11.3. Рабочие и выходные дни 


В сценарии создается новый объект рафа с именем +, для которого три зна- 
чения определяются пользователем и берутся из соответствующих полей 
формы. Причем месяц определяется с помощью тега <зе1ес+>. В теге 
<ор+1оп> значение параметра уа1ае задает номер месяца в году. После того, 
как дата определена, с помощью метода деЕрау () выясняется номер дня не- 
дели, соответствующий этой дате. Функция Едау(аау) по номеру дня опре- 
деляет его название, которое затем поступает в поле формы для формирова- 
ния ответа на вопрос. 


НТМГ-код со сценарием приведен в листинге 11.3. 


| Листинг 11.3. Рабочий или выходной день заданной даты | 
<НТМЬ> 
<НЕАР> 


<ТТТЬЕ>Рабочий или выходной день заданной даты</ТТТЬЕ> 
<$сг1ре 1ападиаде="Зауа$сг1ре"> 
<!-- // | 

уаг Ч=аосищепе 

уаг ®& = пем Пафе() 


Еорс&1оп ЕЧау (ау) 
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{ таг ‚5 
$м1Еср (ау) 

{ сазе 0: $="воскресенье"; ргеак; 
сазе 1: з="понедельник"; БгеаКк; 
сазе 2: $="вторник"; Бгеак; 
сазе 3: $з="среда"; . Ьгеак; 
сазе 4: з="четверг"; Ьгеак; 
сазе 5: з="пятница"; Ьгеак; 
сазе 6: 5="суббота"; ЬгеаКк; 

} 

гебагп $ 


} 
Еопсе1оп аеЕЁ (057) 
{ уаг $ 
<.зефУеаг (М№итрег (оЪ].Еуе.уа1ае)) 
Е. зе Рае (№итрех (ор). ЕЧа®.уа1ще)) 
уаг п=М№опрет (ор) .ЁЕт.уа1ае) 
Е. зе>МопеВ (п). | 
уаг пЧау= ®.десрПау() 
уаг 14%= ЁЕЧау (паау) 
1Е (паау==О || паау==б) 
{ $= "выходной день- "+ 146 
Чоситепе.тур1с®е. згс="Багаег.а1Е" 
} 
е15е 
{ $="рабочий день- "+ 14% 
аоситепе .щур1с®. згс="сотр.41Е" 
} 
оЬ).ЕА.ха]ме =$ 
} 
ЕопсЕ1оп а1Аа*е (057). 
{ о5].а1Чаё.уа1ае = *} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОШУ> 
<СЕМТЕВ> 
<Н4А>На какой день недели (рабочий или выходной) 


попадает заданная дата?</НА4А> 
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<ТАВЬЕ а119п= сепбег рог4ег=3 се11раЯа1па=4 се11]$рас1п9=4 


Бдсо1ог=$11уег Баскагоцпа="{11е2.)ра"> 
<ТВ><ТН>Интересующая дата</ТН><ТН> попадает на</ТН></ТВ> 


<ТВ><ТрО> 


<РГОВМ паще="Роги1"> 


<рге> 
год: 
месяц: 
<орЕ1оп 
<ор*1оп 
<оре1оп 
<ор&1оп 
<оре1оп 
<ор®1оп 
<орЕ1оп 
<ор®1оп 
<орЕ1оп 
<орЕ1оп 
<орЕ1оп 
<оре1оп 
</зе1есе> 


число. 


<5е1есЕ паще="Ёт" 


<1приоЕ суре="ехе" $12е=10 паще="Еуе" > 


$17е=1> 
уа1це=0>январь 
уа1ае=1>февраль 
уа1ае=2>март 
уа]1ае=З>апрель 
уа1це=4>май 
уа1ае=5>июнь 
уа]ае=б>июль 
уа]1це=7>август 
уа]ае=8>сентябрь 
уа1це=9>октябрь 
уа1це=10>ноябрь 


уа1ие=11>декабрь 


<1праЕ Еуре="6ехе" $17е=10 патме="ЁЕда®" > 


</рге><ЕОВМ></ТО> 
<ТР а]119п=сепеег><1праЕ куре="$ех®" з17е=27 паме="Еа"><Бг> 


<1МС згс=сошр.а1Е паще=тур1с®е ре190е=100> 


</Тв> 
</ТвВ> 
</ТАВЬЕ> 


<1прие Еуре="Баеоп" уа1ав="Определить" опС11ск="4еЕ (Роза) "> 


<1приЕ буре="гезеф" 


<1приЕ Еуре="Бае®оп" уа1ае=Тест 


уа1пе="Отменить"><НВ> 


опС11ск="а1Чафе (охт1)"> 


<1прие Еуре="фехе" $з17е=30 паце="а]Ча®" ><НВ> 


</ВОПУ> 
</НТМТ> 


Если выбранная дата приходится на выходной день, то изменится рисунок, 
вместо изображения компьютера в документе ноявится праздничный пирог, 


как на рис. 11.4. 
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-- ны пи км" 


На какой день недели (рабочий или выходной) 
попадает заданная дата? 


ты лек о а Й-`— оке лада тира сми вимь ео оао Бес оао ад фура оо вич ль нь парта овал ти 


Гы дата. |. о попадает 1 на. 


пт: ке (————--— еее п ещо 


о г | Ромен субботе 

| 
ежи [еевая 7]. 
| 
| 
| 


Отменить’. 


о ме + . : 


Рис. 11.4. Выходной день 


Пятница 13 


Напишем сценарий, с помощью которого определяются все даты в указан- 
ном году, приходящиеся на пятницу, 13 число. 


При написании сценария будем поступать следующим образом: перебирать 
с помощью цикла месяцы и в каждом месяце устанавливать номер дня 13. 
Установка требуемой даты выполняется использованием методов работы с 
датой: 

+.зебУеаг (у) 

$.зеЕМопЕВ (1) 

ф.зеЕрафе (13) 

Далее следует проверить, какой номер дня соответствует этой дате. Если 
номер равен пяти ((=.деерау())==5), То день недели — пятница, найденный 
месяц следует запомнить. Для формирования ответа используется строковая 
переменная с, после запоминания названия месяца добавляется символ пе- 
ревода строки. НТМГ-код со сценарием приведен в листинге 11.4. 
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‚ Листинг 11.4. В какие месяцы года 13 число попадает на пятницу? | 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>В какие месяцы года 13 число попадает на пятницу?</ТТТЬЕ> 
<$сг1ре 1апачаде="Зауа$ сг1ре"> 
<!-- // 
Еапсе1оп АеЕ1З (о]) 
{ уаг = пем Пафе () 
уаг с="" 
уаг у=Матрет (ор) .Еуе.уа1ае) 
Рог (маг 1=0; 1 <=11; 1++) 
{ Е. зесУеахг (у) 
Е. зе МопеВ (1) 
$. зеЕРате (13) 
1Е ((6.дефрау())==5) 
с = с+ Емоп(1)+ "\г\п" 
} 


ор].гез.уа1ае = с 


} 
Еапсе1оп Етоп (попе) 
{ таг $ 

змтЕСИ (попе) 

{ сазе 0: з="январь"; ргеак; 
сазе 1: з="февраль"; БгеаКк; 
сазе 2: з="март"; ргеак; 
сазе 3: $="апрель"; Ьгеак; 
сазе 4: $="май"; Ьгеак; 
сазе 5: $з="июнь"; Югеак; 
сазе 6: $="июль"; Ьгеак; 
сазе 7: з="август"; Ьгеак; 
сазе 8: $з="сентябрь"; Бгеак; 
сазе 9: $5="октябрь"; геак; 


сазе 10: $="ноябрь"; Бгеак; 
сазе 11: $="декабрь"; Ьгеак; 
} 


гебагп 5 
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//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ расо1ог="#РЕЕРЕСС"> 
<Н4>В какие месяцы заданного года число 13 попадает на пятницу?</р4> 
<ГОВМ папе="Ёоти1"> 
Введите год: <1праЕ суре="кехЕ" 512е=8 паме="Еуе" > 
<1праЕ суре="Боскоп" уа1ае=Найти опС11ск="аеЕ1ТЗ (Ёоги1)"><Ьг> 
<сехфсагеа Со1$=30 гом$=4 паме=гез></$сех$агеа><Ьт> 
<1прае суре="гезее" уа]1]ае=Отменить> 
</ЕОВМ> 
</ВОПУ> 
</НТМГ> 


Результат работы сценария приведен на рис. 11.5. 


ЕТ Вк. 3 какие месяцы ы года 13 число попадае.. РИГе] 53 


ооо опр икераныный ^^ о АЗЫ —--% 


г: Файл ‚Правка Ви ` Перевод. __Избрани ‚. СЯ 


В какие месяцы заданного года число 
13 попадает на пятницу? 


Отменить. _ 


Рис. 11.5. Пятницы, попадающие на 13 число 


Дата, время и день посещения 
\Меб-страницы 


Напишем сценарий, который помещает в документ дату, время и день по- 
сещения страницы, как показано на рис. 11.6. 


Основные действия выполняет функция рафеТ1ме (), в которой формируются 
необходимые компоненты помещаемой на странице информации. Обратите 
внимание, как теги НТМИ, используются при формировании текстовой пере- 
менной. На рис. 11.6 некоторые слова выделены полужирным начертанием. 
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и ` файл. "Правка _ В ` Переваа _ `Избрыние й 


Че. акне. =. рае рут Рае». У И леех 


Пример использования функций 
определения даты и времени 


Вы посетили эту страницу 


10 февраля 2001 года 
в 5:2:4] 
Сегодня - суббота 


Рис. 11.6. Время посещения 


НТМЕ-код представлен в листинге 11.5. 


ВОВА АВАЛЬ АВВ Фооороото ово ооо ро оф ро соос ооо ро ово соо оо ново о во оч ооо ооо соо оао вовооочоо - 
. . . 


„Листинг 11. 5. Дата посещения: М/еБ-страницы _ 


<НТМГ> 
<НЕАО> 
<5сг1рЕ ]апаааде="Фауа$ сг1ре"> 
ЕопсЕ1оп МРауз (г) 


{ так з="" 


$мтесВ (г) 

{ сазе 0: з="воскресенье"; Бгеак; 
сазе 1: $5="понедельник"; Бгеак; 
сазе 2: з="вторник"; ргеак; 
сазе 3: з="среда"; Бгеак; 
сазе 4: з="четверг"; Ьгеак; 
сазе 5: з="пятница"; _ геак; 
сазе 6: з="суббота"; Ьгеак; 

} 

гебагп $5 
} 


Еорсе1сп ММорпеВ$ (г) 
{ таг $="" 
$м1ЕсВ (г) 


{ сазе 0: 5="января"; БгеаКк; 
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сазе 1: з="февраля"; ргеак; 
сазе 2: з="марта"; ЪгеаКк; 
сазе 3: з="апреля"; Ьгеак; 
сазе 4: 5="мая"; | ргеак; 
сазе 5: $з="июня"; ЬгеакК; 
сазе 6: $="июля"; Ьгеак; 
са5е 7: з="августа"; Ьгеак; 
сазе 8: з="сентября"; БгеаК; 
} сазе 9: $="октября"; ргеак; 
сазе 10: з="ноября";  ргеак; 


сазе 11: $="декабря"; Бгеак; 
| 
гегагп $5 
} 
Еарс&1оп РафеТаше () 
{ уаг пом = пем Рафе() 
уаг з$г= "Вы посетили эту страницу<рк><Ь>"_ 
уеаг = пом.дебУуеаг() + "" 


5Ег += пом.деерафе() + " " + ММопев$ (пом. деЕМопЕВ ()) +" "+ 


пом.десУеах() + "</Ъ> года<рг>" 
Ех += "в <Б>" + пом.дееНоцг$ () + ":" + пом. дееМ1тиаеез () + ":" + 


пом.дее$есопа$ () + "</ь><рхг>" 
зЕг += "Сегодня — <Ъ>" + МРау$ (пом.деерау()) + "</Ъ>" 
аосимепе.мг1е ($%г) 
} 
</зсг1р®> 
</НЕАР> 
<ВОрУ> 
<Н4 а11ап=сепеег>Пример использования функций определения 
даты и времени</Н4> 
<СЕМТЕВ> 
<зсЕ1ре ]1апозаае = "Зауа$сгаре"> 
РасеТ1ше () 
</зсг1р®> 
<Ьг><пад згс=Т1ие.а1Е а11ап=септех> 
</СЕМТЕВ> 
</вобу> = 
</НТМГ> 
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Определение даты для заданного 
дня недели 


Напишем сценарий, который определяет все даты заданного года, приходя- 
щиеся на определенный день недели, выбранный пользователем. 


На рис. 11.7 приведен результат работы сценария, определяющий все даты 
2001 года, приходящиеся на среду. 


| ЕЕ даты заданного года. приходя 


- Файл. _ Правка. Ви ‚Пере _ Избра › о 


А 


Все даты заданного года, 
приходящиеся на определенный день 


Введите год: [2001 
Выберите день недели: и: [среде ый 


воскресенье 
понедельник 
вторник 
‘среда 
четверг 
пятница 
суббота 


_ Отменить. 


Рис. 11.7. Даты заданного дня недели 


Сценарий, осуществляющий основную обработку, может быть описан так, 
как представлено в листинге 11.6. 


: Листинг 11.6. Даты, приходящиеся на выбранный день недели 


ооо ооо вов ово ооо ооо тов соноо ооо оон ооо и я ооо оо ооо осо ров ооо вос ооо поно вов оо ро ооо сор воос осно ов особ оочоо то соо вов о вос ооо со ооо ао ооо о вос оро вов ооо чо в соч ррооооовоссовосвосоосоовос - 


ЕопсЕ1оп ЧеЕдафе (ор1) 

{уаг += пем ПБафе() 
уаг с="" | 
уаг у=М№лрег (ор) .Еуе.уа]ае) 
уаг а=ор).Чауп.хуа]1ае 
{.зекУеаг (у) 
Бог (уаг 1=0; 1 <=11; 1++) 

{ Е. зеЕМорЕВ (1) 

Бог (уаг К=1; К< 31; К++ ) 
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{ с. зеёВаее (К) 
1Е (6.дебрау() == а) 


с = с+ Етоп(1)+" " +К+ "\х\п" 


} 


ор).гез.хуа1ае = с 


} 


Предыдущие примеры были рассмотрены подробно, поэтому полностью 
создать документ читателю рекомендуется в качестве упражнения. — 


Составление расписания занятий 


Предположим, что занятия в некотором учебном заведении начинаются по 
мере комплектования групп. В анкете заполняется дата начала и конца ра- 
боты группы. Для проведения занятий по определенной дисциплине выби- 
рается день занятий. Гребуется написать сценарий, который формирует рас- 
писание занятий. 


После того как пользователь заполнил поля формы, указав дату начала и кон- 
ца занятий группы и день недели для проведения занятий по некоторой 
дисциплине, определяется дата первого занятия. Предположим, группа 
начинает работу 15 февраля 2001 года (четверг), а занятия по заданной 
дисциплине должны проводиться по средам. Тогда дата первого занятия — 
21 февраля. 


Далее формируется дата следующего занятия + и сопоставляется с датой 
окончания работы курсов и. Сначала сравниваются года. Продолжать ра- 
боту следует лишь в случае, когда год предполагаемого текущего занятия 
предшествует или равен году окончания занятий. Если года совпадают, то 
сравниваются месяцы, если и месяцы совпадают, то сравниваются даты. 
Другими словами, если текущая дата предшествует дате окончания, то она 
добавляется в расписание, формируется дата следующего предполагаемого 
занятия и т. д. 


Для того чтобы получить расписание занятий, надо ввести дату начала и 
окончания занятий в анкете, представленной на рис. 17.8. 


Сформированное расписание помещается в текстовое поле. Если даты вы- 
браны неверно, т. е. дата окончания курсов предшествует дате начала рабо- 
ты курсов, то выдается сообщение о том, что требуется проверить введенные 
даты. Возможна ситуация, когда даты введены верно, а выбранный день не 
попадает в интервал времени, определенный для занятий. В этом случае 
также будет выдано предупреждающее сообщение. НТМГ-код документа со 
сценарием приведен в листинге 11.7. 


7 Распысание занятий - МисгозоЙ Тикегое! Ехрюге! 
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ИА А учух . тЫ ем ТА ее еж ми хе че еси ме 


_ Фа _ Правка Ва „Избранное _ _ Сервис _ ` Справка . НЫ а 


холле не 


Формирование расписания занятий 


я о ен иж тм 


_ Начал ало о курсов _ Конец: курсов. | _ Расписание 


ое т жа а да оо кя лиачиь 


В — [Дни занятий: 
‚ число 111 сентябрь 2001 


' месяц [сентябрь 7] | месяц [октябрь т] |18 сентябрь 2001 
год [2001 | [2001 [25 сентябрь 2001 
| |2 октябрь 2001 


|9 октябрь 2001 


4 
1 


п Зо А. ини ори. АА реет и А аи д. * 


__ Выберите д День занятий: | вторник 


ета лана покладая пелотки оо делла лас оч полон педали моем 


под лилии ло одл аяоле к. 


^_ Па Мой! Мой ‘компьютер ^ о 
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=] ] Готово _ 
Листинг 11.7. Расписание занятий 


<НТМЬ> 
<НЕАБ> 


<ТТТЬЕ>Расписание занятий</ТТТЬЕ> 


<5сг1ре 1апдааде="Фауа$ сг1ре"> 


<!-- // 
‚ Гапс®1оп 1заепе (поп®) 
{ уаг $ | 
$м1ЕсИ (топе) 

{ сазе 0: $з="январь"; БгеаКк; 
сазе 1: з="февраль"; БгеаКк; 
сазе 2: $="март"; ргеак; 
сазе 3: $="апрель"; ргеаК; 
сазе 4: з="май"; Бгеак; 
сазе 5: з="июнь"; бгеаК; 
сазе 6: $5="июль"; ЬгеаК; 
сазе 7: $з="август"; Ьгеак; 
са5е 8: $="сентябрь"; Бгеак; 
сазе 9: $5="октябрь"; Бгеак; 
сазе 10: $="ноябрь"; Бгеак; 
сазе 11: 5="декабрь"; Бгеак; 
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ыы  ддрдр р р 
} 
гебауп 5 
‚_ 
Еапсе1оп газр(оЬ]) 
{ // дата начала работы группы 
уаг Я= пем Пафе (оЪ).Беду.уа1ае, об .Бедт.уа1ае, об) .Беда.уа1ае) 
// дата окончания работы группы 
уаг м= пем Пафе (ор) .епау.уа1ае, об) .епдм.уа1ще, ор).епаа.уа1чае) 
// дата текущего занятия 
уаг += пе\м Пафе (ор) .Беду.уа1ще, ОБ} .Бедт.\ма1ле, ор) .Беаа.уа1ае) 
уах з="" 
// выбранный пользователем день работы 
уаг п=ор).Ч&.уа1щае 
// сформированная дата дня первого занятия 
уаг К=а.деератфе () +М№опфет (п) -№апрег (4. деерау()) 
1Е (п < Я.деерау()) 


к += 7 
$.зесраее (К) 
уаг $31 = "Дни занятий: "+"\п" 


// зсиг - дата`предполагаемого текущего занятия 
уаг зсаг 
уаг $=$1 
// поиск дат занятий 
\мр1]е (&.детУеаг() <= м.дефУуеаг()) 
{ // формирование даты очередного занятия 
зсит=+ &.деерафе()+" "+14еп& (№имрег (Е .деЕМопЕВ ())) + 
" "+6. десУеаг ()+"\п" 
1Е ($.десУеахг() < м.дефУеаг()) 
{ э+= 5СиЕ } 
Е15е 
{ 1Е ( 6.дебМопеВ () < м.дееМопевь ()) 
{$ +=5саг} 
е15е 
{ 1Е (Е.чеЕМопЕВ () == м.деЕМопЪВ ()) 
{ 1Е (Е.деЕрафе () <м.деераее()) 
{5 +=5сиг} | | 
е1зе 
{ 1Е (&.деЕрафке () ==м.деерафе ()) 


{5+= зсаг; БгеаКк } 
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К=е.аеераее () +7 
$. зесРаее (К) 
} 
1Е (5$==51) 
а1егф ("Проверьте даты начала и конца занятий") 
е15е 
оь).гез.уа]ае = з 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОШОУ 69со1огх="#ЕЕЕЕСС"> 
<Н4 а11дп=сепкег>Формирование расписания занятий</Н4> 
<ЕОКМ пате="ЁЕогт1 "> 
<ТАВЬЕ Богаег=3 а119п=сепеехг> 
<ТВ><ТН>Начало курсов</ТН><ТН>Конец курсов</ТН> 
<ТН>Расписание</ТН></ТВ> 
<ТВ><ТЬ><рге> 
число <1прибе суре="Еех®е" паме="реда" $12те=10)> 
месяц <зе]есЕ паще="редт" $12е=1 > 
<орЕ1оп уа1ае=0>январь 
<ор®&1оп уа1ае=1>февраль 
<орЕ1оп уа1ае=2>март 
<оре1оп уа1ие=З>апрель 
<орЕ1оп уа]ие=4>май 
<орЕ1оп уа1ае=5>июнь 
<орЕ4оп уа1ае=б>июль 
<орЕ1оп уа]ие=7>август 
<орЕ1оп Уа1ие=8>сентябрь 
<оре1оп уа1ае=9>октябрь 
<орЕ1оп уа1ае=10>ноябрь 
<ор®1оп уа1ае=11>декабрь 
</зе1ес&> 
год <1праЕ фуре="Еехе" пате="Беду" $1хе=10 уа1ае=2001> 
</рге></тТр> 
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<ТО><рге> 
число <1приЕ Еуре="{ехе" паме="епаа" $12е=10> 
месяц <зе1есЕ паще="епам" $12е=1> 


<ор®&1оп уа1ае=0>январь 


<оре1оп 
<оре1оп 
<ор*1оп 
<ор®*1оп 
<оре1оп 
<орЕ1оп 
<орЕ1оп 
<ор®1оп 
<оре1оп 
<орЕ1оп 


<оре1оп 


уа1ае=1>февраль 
уа1ае=2>март 
уа1че=З>апрель 
уа1ае=4>май 
уа1ае=5>июнь 
уа1це=б6>июль 
уа]1ае=7>август 
уа1ле=8>сентябрь 
уа1ае=9>октябрь 
уа1ае=10>ноябрь 


уа1це=11>декабрь 


</зе1ес{> 
год 
</рге></тТр> 


<1приЕ Еуре="$ехе" паме="епау" 312е=8 уа]ае=2001> 


<ТР гомзрап=2> 
<Бехфагеа Со1$=20 гомз=8 паме=гез></+ехагеа><Бг> 
</Тр></ТВ> | 
<ТВ><ТО со1зрап=2 а119п=г1а90®> 
Выберите день занятий: 


<зе1есЕ паме= ав з17хе=1> 


<орё1оп 
<оре1оп 
<ор®е1оп 
<орЕ1оп 
<орЕ1оп 
<орЕ1оп 
<орЕ1оп 
</зе1есЕ> 
</ТО></ТВ> 


уа1це=0 >воскресенье 
уа1ае=1>понедельник 
уа1ае=2>вторник 
уа1ие=3>среда 
уа1це=4>четверг 
уа1ле=5>пятница 
уа1пле=6>суббота 


<ТВ><ТО со15рап=2 а119п=1еЕ®><рг> 
<1проЕ буре="раееоп" уа]ае=Сформировать 
опС11ск="газр (Еот1) "><Ьг></ТО> 
<ТО а119п=г1908><1пра®е $уре="гезее" уа1де=Отменить> 
</ТО> 
</ТВ> 
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</ТАВЬЕ><Ьг> 
</ЕОВМ> 


</ВОБУ> 
</НТМт> 


Упражнения 


1. 


10. 


Напишите сценарий, который по заданному времени определяет коли- 
чество минут, прошедших от начала текущего занятия. 


Напишите сценарий, который для заданной даты определяет, сколько 
дней прошло после некоторого события. 


Напишите сценарий, с помошью которого можно выяснить количество 
дней между заданными датами. 


Напишите сценарий, который рассчитывает, сколько рабочих и выход- 
ных дней между двумя заданными датами. 


Напишите сценарий, который по заданной дате определяет номер неде- 
ли в году. 


Напишите сценарий, который по дате рождения человека определяет, 
под каким знаком зодиака родился человек. 


В анкете приводятся данные о семи сотрудниках: фамилия и дата прие- 
ма на работу. Напишите сценарий вычисления стажа работы (в годах) и 
определения максимального числа сотрудников с одинаковым стажем. 


В анкете приводятся данные о шести сотрудниках: фамилия и дата 
приема на работу. Все сотрудники в зависимости от стажа работы разде- 
ляются на категории: проработавшие меньше года относятся к категории 
молодой”, от года до пяти лет — "опытный", более пяти лет — 
"ветеран". Напишите сценарий определения стажа работы каждого со- 
трудника и числа сотрудников в каждой категории. Постройте диаграм- 


му, отражающую число сотрудников в категориях. 


В анкете приводятся данные о семи сотрудниках: фамилия, дата рождения и 
оклад. Все сотрудники в зависимости от возраста разделяются на категории: 
менее 30 лет — "молодой", от 30 до 55 — "средний возраст", более 55 — 
"старший возраст". Напишите сценарий вычисления возраста каждого со- 
трудника и размер средней зарплаты для любой категории. Постройте диа- 


грамму, отражающую среднюю зарплату в каждой из трех категорий. 


В анкете заполняется информация о десяти сотрудниках: фамилия, дата 
заключения контракта и срок (в годах), на какой заключен контракт. 
Создайте форму для ввода данных. Напишите сценарий, определяющий: 


» Дату окончания контракта; 


е меСЯЦ, В который закончится контракт, 


Глава 11. Представление и обработка дат 275 


11. 


12. 


день недели, в который закончится контракт, 


сотрудников, контракт с которыми заканчивается в определенном го- 
ду (год выбирается пользователем): 


сотрудников, контракт с которыми заканчивается в определенном 
месяце (месяц выбирается пользователем); 


сотрудников, контракт с которыми заканчивается в определенный 
день недели (день выбирается пользователем); 


сотрудников, контракт с которыми заканчивается в выходной день 
(субботу или воскресенье); 


сотрудников, контракт с которыми заканчивается в определенное 
время года (время года выбирается); 


сотрудников, контракт с которыми заканчивается в определенный 
квартал (номер квартала выбирается пользователем); 


в зависимости от введенной даты тех сотрудников, с которыми за- 
ключен контракт на заданный момент; 


сотрудников, контракт с которыми завершен на заданную дату. 


В анкете заполняется информация о семи сотрудниках: фамилия, дата 
заключения контракта. Ровно через одиннадцать месяцев после начала 
работы сотрудникам предоставляется отпуск продолжительностью 24 ра- 
бочих дня. Создайте форму для ввода данных. Напишите сценарий, оп- 
ределяющий: 


дату начала и окончания отпуска для каждого из сотрудников, 


фамилии сотрудников, отпуск которым будет предоставлен в задан- 
ном месяце (месяц выбирается пользователем); 


фамилии сотрудников, отпуск которых будет завершен в заданном 
квартале (номер квартала выбирается пользователем); 


фамилии сотрудников, отпуск которым будет предоставлен в сле- 
дующем календарном году; 


фамилии сотрудников, отпуск которых будет завершен в следующем 
календарном году; 


фамилии сотрудников, которые в данный момент работают (не нахо- 
дятся в отпуске), в зависимости от введенной пользователем даты. 


В анкете заполняется информация о семи сотрудниках: фамилия, дата 
заключения контракта, продолжительность отпуска. Ровно через один- 
надцать месяцев после начала работы сотрудникам предоставляется от- 
пуск, продолжительность которого оговорена в контракте (12, 24, 30, 48, 
60 дней). Напишите сценарий, определяющий: 


дату начала и окончания отпуска для каждого из сотрудников, 
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» фамилии сотрудников, начала отпусков которых приходятся на за- 
данный месяц (месяц выбирается пользователем); 


е В зависимости от введенной пользователем даты фамилии сотрудни- 
ков, которым предоставлен отпуск, 


» В зависимости от введенной пользователем даты фамилии сотрудни- 
ков, которые в данный момент работают (не находятся в отпуске). 


В анкете заполняется информация о семи сотрудниках, принятых на 
работу на основе почасовой оплаты: фамилия, оплата за час, дата начала 
работы, дата окончания. Напишите сценарий, при работе которого оп- 
ределяется: 


е количество рабочих дней для каждого сотрудника; 
» количество выходных дней между заданными датами; 


» размер гонорара, учитывая, что каждый рабочий день длится 8 часов 
(стоимость одного часа работы указана в договоре и содержится в ан- 
кете). | 


В анкету вносится информация о дате начала семестра, дате конца семе- 


стра. Требуется написать сценарий, который после выбора пользовате- 
лем дня недели определяет количество часов, отведенных на данную 
дисциплину в определенном семестре. Напишите сценарий, определяю- 
щий: 

е Даты проведения занятий; 

е По номеру занятия дату его проведения. 


Предположим, что занятия в некоторой обучающей организации начи- 
наются по мере комплектования групп. В анкете заполняется дата нача- 
ла работы группы, количество занятий, отведенное на курс. Напишите 
сценарий, который определяет: 


® Дату проведения занятия с заданным номером, 


» Дату проведения контрольной работы (после половины занятий по- 
лагается контрольная работа); 


» Дату проведения зачета (предпоследнее занятие отведено для сдачи 
зачета); 


е Дату ближайшего занятия и его номер, | 
е СКОЛЬКО ЗАНЯТИЙ уже прошло и сколько предстоит провести. 


В документе определяется дата начала и конца семестра. Преподаватель 
заполняет анкету, содержащую название дисциплины, и выбирает день 
недели для занятий. Вводятся сведения о трех дисциплинах. Напишите 
сценарий, определяющий: 


» расписание занятий (указывается дата, день недели и дисциплины): 
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сколько занятий в семестре будет проводиться по каждой из дисциплин; 
е неделю с максимальной загрузкой; 
е неделю с минимальной загрузкой; 


» расписание контрольных работ, в предположении, что контрольные 
проводятся примерно в середине курса, и не разрешено проводить 
две контрольные в один. день; 


е расписание зачетов, в предположении, что зачет проводится на по- 
следнем занятии. 


17. Напишите сценарий, формирующий расписание занятий. Требуется 
предусмотреть ввод времени начала занятий. На каждое занятие отво- 
дится одна пара, состоящая из двух часов. Продолжительность часа за- 
нятий (30, 45, 50 минут) в паре определяется пользователем. Кроме того, 
требуется задать продолжительность перерыва между часами в паре и 
между парами, длительность обеденного перерыва, количество пар в 
день. В расписании требуется указать номер пары, время ее начала и 
окончания, время начала и окончания обеденного перерыва. 


18. В старояпонском календаре был принят 60-летний цикл, состоящий из 
пяти 12-летних подциклов. Подциклы обозначались названиями цвета: 
зеленый, красный, желтый, белый, черный. Внутри каждого подцикла 
годы носили названия животных: крысы, коровы, тигра, зайца, дракона, 
змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Например, 
1984 год (год зеленой крысы) был началом очередного цикла. Напишите 
сценарий, который по заданной дате определяет название года по старо- 
японскому календарю. 


10 Зак. 834 
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Строки и методы Эт 
работы с ними . т 


Многие языки программирования позволяют обрабатывать строковые дан- 
ные. Прежде, чем рассмотреть принципы работы со строками в языке 
Тауа$сир!, уточним некоторые понятия, относящиеся к строкам. Алфавит — 
это конечное множество символов. Строка — конечная последовательность 
символов некоторого алфавита. Если рассматриваем алфавит А, состоящий 
из двух символов {0, 1}, то строками в алфавите А являются: 1001, 1, 01, 10, 
1111 ит. д. Пустая строка — это строка, не содержащая ни одного символа. 
В строке важен порядок символов, так, строки 01 и 19 различны. Длина 
строки равна числу символов в строке. Длина пустой строки равна нулю, 
длина строки 11 равна двум, длина строки 1001 — четырем. Если Хи У — 
строки, то их сцеплением или конкатенацией называется строка ХУ, полу- 
ченная, приписыванием символов строки У за символами строки Х. В пре- 
дыдущих примерах неоднократно использовались строковые литералы, на- 
пример, при выводе некоторой информации в документ росимепе.ик1%е 
("Площадь равна", $). Напомним, что строковый литерал представляет со- 
бой последовательность символов, заключенную в одинарные или двойные 
кавычки. Строковые литералы или строковые переменные являются в языке 
ТауаЗ сир объектом типа зе г1пд, К которому могут быть применены методы, 
определенные в языке. Создание нового объекта требует вызова функции- 
конструктора объекта. Для того чтобы создать строковый объект, надо при- 
менить конструктор пемзЕг1па, например: 


$5=пем5$г1па ("результат=") 


Объект зег1па имеет единственное свойство 1епаёй (длина_строки). Выра- 
жение $.1епдаев выдает значение 10, равное длине строки, содержащейся в 
строковом объекте з. Объект зЕг1пд имеет два типа методов. С методами, 
непосредственно влияющими на саму строку, мы сейчас и познакомимся, 
рассматривая примеры обработки текстовой информации. 


Одним из часто используемых методов является метод выделения из строки 
отдельного символа. Метод свагд+ (п1) возвращает символ, позицию которого 
определяет параметр п1. Символы в строке перенумерованы, начиная с 0. 
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Вывод символов строки в "столбик" 


Напишем сценарий, при выполнении которого заданный текст выводится в 
"столбик", т. е. на каждой строке размещается по одному символу. 


При решении задачи из заданной строки последовательно выбираются сим- 
волы. Формируется новая строка, в которой за каждым символом ставится 
последовательность символов, обеспечивающая переход на новую строку. 
Когда строка результата сформирована, то она размещается в текстовом по- 
ле формы, тем самым для исходной строки осуществляется вывод в 
"столбик". Сценарий, осуществляющий обработку строки, приведен в лис- 
тинге 12.1. 


| Листинг 12.1. Вывод символов строки в "столбик" ^ | и 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Вывод символов строки в "столбик"</ТТТЬЕ> 
<$сг1ре 1апацладе="дауа5сг1ре"> 
<!-- // 
Еапс®1о0оп +%$е$% (5) 
{ таг згез="Прочитанный текст:"+" \г\п"+$+"\г\п"+ 
'Текст в "столбик": '+"\г\п" 
уаг саг="" 
Рог ( уаг 1=0; 1 <= $.1епа®6-1; 1 += 1) 
{с=$.срагАе (1); саг +=с+"\г\п" } 
згез+=сиаг 
тефагп зге$ 
} 
//--> 
</зсх1р®> 
</НЕАО> 
<ВОРУ расо1ог="#ЕЕЕЕСС"> 
<Н4>Символы текущей строки в столбик</Н4> 
<РГОВМ папе="Еоги1 "> =. 
Введите строку: <1приф суре="кехе" $1хе=20 паме="$&1"><рг> 
<1прае вуре="Бабфоп" уа1ае=Выполнить 
опС11ск="Еотта1.гез.уа]ле=еЕез% (Еоги1.5${1.уа1ае) "> 
<1праЕ суре="гезее" уа]ле=Очистить><Иг> 


<Гехфагеа со1$=20 гом5=7 папе= гез></хехфагеа> 
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</ЕОВМ> 
</вВорУ> 
</НТМГЬ> 


На рис. 12.1 изображен документ, соответствующий приведенному коду. 


| Вывод символов строки в "столби! 


пар илицих ак ААкАЛХ К 


ране * 


Символы текущей строки в столбик 
Введите строку. Информатика — 
г "ВЫПоЛНИЕ _ Очистить : | 
Прочитанный текст: 

Информатика 


Текст в "столбик": 
И 


н 
ф 
о 


Рис. 12.1. Вывод текста в столбик 


Строка является универсальным способом представления информации. Час- 
то пользователь вводит информацию в виде строки, а программа должна 
уметь распознавать, какого рода данные были введены. В следующей задаче 
вводимая строка представляет собой последовательность оценок, и требуется 
эту строку проанализировать и извлечь из нее нужные данные. 


Сводка по результатам 
проведения экзамена 


Напишем программу, которая по последовательности оценок, полученных 
на экзамене, формирует сводку. В сводке содержатся сведения о числе сту- 
дентов, сдавших экзамен на "отлично", "хорошо", "удовлетворительно" и 
"неудовлетворительно". Кроме того, подсчитывается средний балл, на кото- 
рый сдан экзамен. Для вычисления среднего балла суммируются все оценки, 
полученные на экзамене, и рассчитанная сумма делится на число студентов. 


В функцию зуоа поступает строка. С помощью цикла просматриваются 
символы строки, выбираются те, которые соответствуют оценке, остальные 
игнорируются. В функции используются четыре переменные +2, +3, +4, +5 


Глава 12. Строки и методы работы с ними 281 


для хранения числа оценок. В теле цикла все оценки суммируются для того, 
чтобы затем получить средний бал по предмету. После анализа всей строки 
в соответствующих полях формы выводится требуемая информация так, как 


изображено на рис. 12.2. 


Е Работа со строками. Сводка | по экзамену - - МестозоН 


о олркриаирь фолк отоира 


‚Файл. - Правка . ; Ви ` Перевод _ Избранное | Справка 24 


Ф ормирование сводки по экзамену 


Введите последовательно все оценки, полученные на 
экзамене |5 342 3444524543}3434344 
После ввода всех оценок нажмите накнопку 


Г .: в м _ Число сдавших! на оценку 
а ИЕ: . 


отл ично 


——— =_=. 


корошо 


неудовле етворительно 


вк ке кдллаа тля рат лла дер лая ле ильлидльла алкалоз а кале лат мал му. 


_ Дополнител ельны е св едения 


количество сдававших | о 
средний балл _ [Р5666ВБ66Е 


ААА ОРАЛ РИЛЕЧАК А: 


жж 


“Отменить 


Рис. 12.2. Сводка по экзамену 


НТМЕ-код представленного на рисунке документа со сценарием, форми- 
рующим сводку по экзамену, представлен в листинге 12.2. 


: Листинг 12.2. Формирование сводки по экзамену — | —_ 
<НТМГ> 
<НЕАО> 


<ТТТЬЕ>Работа со строками. Сводка по экзамену</ТТТЬЕ> 
<$сг1ре 1алацаде="Зауа$сг1р®"> 
<!-- // 

Еопсе1оп эзуоа (07) 
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{ таг %2=0; уаг $3 =0;. ‘чаг %4 =0; уаг &5=0 
уаг $ =0; уаг п =0; уаг 1; уаг г 
уаг з+=ор].Чафа.уа1ае 
Бог ( 1=0; 1< з%&.1епаеИ; 1++) 

{ г = $. срагАЕ (1); 


НЕ (рз"2" 4 гоз"5") 


{ п=0+1 
$=5+Мопрег (г) 
$м1ЕСИ (г) 

{ сазе "2": {+2++; БхгеаК}; 
сазе "3": {{3++; БгеаКк}; 
сазе "4": {{4++; БгеаКк}; 
сазе "5": {Е5++; БгеаКк}; 

} 

} 
} 
ор).гез2.ха1ще=е2; ор) .гез3.уа1ще=еЗ 
ор).ге$4.уа1ае=к4; ОБ) .гез5.уа1ще=е5 
о5) .пим.уа1ще=п; ор).зг.уа1ае=з/п 


} 
//--> 
</зсг1рЕ> 
</НЕАШ> 
<ВОРУ Басо1ог="#ЕЕЕЕСС"> 
<Н4 а119п=сепеег>Формирование сводки по экзамену</Н4> 
<РГОБКМ папе="Еогт1"><СЕМТЕВ> 
Введите последовательно все оценки, полученные на экзамене 
<1приЕ вуре="фсехе" паме="Чафа" $12е="30"> <Ьг> 
После ввода всех оценок нажмите на кнопку 
<1прае Буре="Баееоп" уа1е="Сводка" опС11ск="$уо4 (Ёоги1) "><рг> о 
<ТАВЬЕ Богаег=З><сарЕ1оп>Сводка по экзамену</сарЕ1оп> 
<ТВ><ТН Б9со1ог=$11уег>оценка</ТН> 
<ТН Басо1ог=511уег>число сдавших на оценку</ТН></ТВ> 
<ТВ><ТЬ>отлично</ТО> 
<ТР а11дп=сепеег><1пра+ суре="фехе" паце="гез5" 
$12е="5"></ТО></ТВ> 
<ТВ><ТЬ>хорошо</ТО> 
<ТО а11ап=сепбег><1праЕ куре="бехЕ" папе="гез4" 
$12е="5"></ТО></ТВ> 
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<ТВ><ТО>удовлетворительно</ТО> | 
<ТО а11ап=сепкег><1прае Еуре="*ехе" 
паше="гез3" з12е="5"></ТО></ТВ> 
<ТВ><ТО>неудовлетворительно</ТрО> 
<ТР а11ап=сепег><1праЕ суре="%ехе" папше="тхез2" 
$17е="5"></ТО></ТВ> 
<ТВ><ТН со1зрап=2? Басо1ог=$11уег а11ап=сепсег> 
Дополнительные сведения</ТН></ТК> 
<ТЕК><ТО>количество сдававших</ТО> 
<ТО а11ап=сепег><1прае фуре="%ехе" паме="пим" 
312е="10"></ТО></ТВ> 
<ТВ><ТЬ>средний балл</ТО> 


<ТР а119п=сепфег><1проЕе фуре="{ех®е" паме="5$х" $12е="10"> 


</ТО></ТВ> 
</ТАВЬЕ> 
<1прие буре="гезее" уа1]ае="Отменить"> 
</ЕОВМ> 
</ВОрУ> 
<НТМЬ> 


Проверка идентификатора 


Напишем программу, определяющую, является ли последовательность вве- 
денных символов идентификатором. Под идентификатором будем понимать 
последовательность букв латинского алфавита (как прописных, так и строч- 
ных) и цифр. Последовательность символов, являющихся идентификатором, 
должна начинаться с буквы. 


При решении задачи проверим первый символ введенной строки. Если сим- 
вол не является буквой, то задача решена: введенная последовательность 
символов не является идентификатором. Если же первый символ — буква, 
то анализ строки следует продолжить. Поочередно просматриваются все 
символы последовательности. Если какой-либо элемент не является буквой 
или цифрой, то анализ строки следует прекратить, а работу цикла прервать. 
Если просмотрели все символы строки, и каждый из них удовлетворяет на- 
шему условию, то введенная строка представляет собой идентификатор. 


НТМЕ-код приведен в листинге 12.3. 
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Листинг 12. 3. Проверка, является ли последовательность 
: символов идентификатором 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Последовательность символов - идентификатор</ТТТЬЕ> 
<5сг1рЕе 1апдладе="Фауа$сг1ре"> 
<!-- // 
Еопсе1оп 146 (067) 
{ уаг 5=ор) .Чафа.уа]щае 
уаг гез=1 
уаг сп=$.срагАФ (0) 
1Е (!(сп>='а! && сВ<='!2' || сВ>='А! && сВ<='!2')) гез=0; 
1ЁЕ (гез!=0) 
{ Еог (уаг 1=1; 1 <= $.1епаВ-1; 1++) 
{ ср=$.срагА® (1) 
1Е (!(ср>='а' && сВ<='2' || сВ>='А' && св<='2' || 
св>='0' && сВ<='9')) 


{гез=0; Бгеак} 


} 
1Е (гез==1) оБ).гези1&.ха1ае="идентификатор" 
е15е оь}.геза1%.уа1ае="не является идентификатором" 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
<Н4>Является ли последовательность символов идентификатором?</Н4> 
<РОВМ паме="Ёоги1"> 
<1праЕ суре="Еехе" папе="Чафа" з1хе="8"> 
<1приаЕ Еуре="раесеоп" уа1]ае="Определить" опС11ск="1ае (ЁЕотт1) "> 
<1прие фуре="кехе" пате="гези1е" $12е="28"><Вг> 
<1приаЕ суре="гезее" уа1ае="Отменить"> 


</ЕОВМ></ВОрУ></НТМт> 
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Вычисление количества 
повторений символа в строке 


Необходимо написать программу, которая определяет, сколько раз некото- 
рый символ встречается в заданном тексте. 


Исследуемый текст определяется в форме с помощью тега <хехеагеа>. Ал- 
горитм решения прост. Просматривается строка слева направо, и каждый 
символ строки сравнивается с заданным символом. После просмотра всего 
текста будет определено число символов в тексте, совпадающих с данным. 
Полностью программа представлена в листинге 12.4. 


| Листинг 12.4. Количество заданных символов в тексте 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Количество заданных символов в тексте</ТтТТЬЕ> 
<$сг1ре 1апачаде="Зауа$сг1ре"> 
<!-- // 
Еопс®1оп пимзум (07) 
{ уаг Р=оБ7] .Аафа.уа1ае 
уаг з=ор).+ехе1п.уа]ае 
уаг гез=0 
Еог (маг 1=0; 1 <= $5.1епаеВ-1; 1++) 
{ ср=$.сВагА® (1) 
ТЕ (сБ==Ь) 
{гез+=1} 
} 
оь7.геза1е.уа1це=гез 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВООУ> 
Количество заданных символов в тексте 
<ЕОВМ пате="Еотгти1"> 
Введите текст:<Ьг> 
<сехфагеа папе="+*ехЕ1п" гом$=4 со15=20></фехкагеа><Вг> 
Введите символ: <1приЕ $уре="бехе" папе="Чафа" $з12е="8"><пг> 


<1прае фуре="БаЕеоп" уа1ае="Определить" 
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опС11ск="питмзум (ЁЕогт1) "><рг> 
Количество символов в тексте: 
<1прие Еуре="$ех®е" папе="геза1*" $12е=8><Вг> 
<1прие Еуре="гезее" уа]1де="Отменить"> 
</ЕОВМ> 
</ВорУ> 
</НТМГ> 


Одним из часто используемых является метод выделения из строки требуемой 
подстроки. Метод зоьзеЕх1па (п1,п2) возвращает подстроку, заданную индекса- 
МИ пт (01,12) И пах (11,12) -1. ЕСЛИ п1=п2, ТО результатом будет пустая строка. 
Если строка з="Решение", ТО значением з.зирюзЕг1па (0,1) будет первый символ 
строки "Р". Результатом выполнения $. 505$ г114 (0,7) будет вся строка. 


Вывод префиксов строки 


Напишем программу, которая выводит все префиксы заданной строки. 


Строка х называется префиксом строки $, если строка $ представима как ху. 
На рис. 12.3 показано, как может быть организован вывод префиксов вве- 
денной строки. 


_ Отменить_- 


Рис. 12.3. Определение префиксов строки 
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При решении задачи будем использовать метод эаьзех1па, "наращивая" на 
каждом шаге итерации строку, являющуюся префиксом заданной (лис- 
тинг 12.5). 


Листинг 12.5. Вывод всех префиксов строки Г 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Вывод всех префиксов строки</ТТТЬЕ> 
<зсг1рЕ 1апачааде="Фауа$сг1р®"> 
<!-- // 
ЕопсЕ1оп ргеЁЕЁ(о5)) 
{ уаг з=оБ).Чафа.уа]1ае 
уаг гез="" 
Гог (уаг 1=1; 1 <= $5.1еподЕБ; 1++) 
{ гез +=$5.за5зех(0,1)+"\х\п" } 
ор) .СехергеЁ.уа1ае = гез 
} 
//--> ` 
</зсг1рЕ> 
</НЕАРО> 
<ВОРУ Бадсо1ог="#ЕЕЕЕСС"> 
<Н4>Вывод всех префиксов заданного слова</Н4> 
<ЕОВМ паще="Роти1 ">. 
Введите слово: <1праЕ куре="*ех®" папе="Чафа" $12е="15"><ру> 
<1приф вуре="раевоп" уа1ае="Определить" опС11ск="ргеЕ (Ёогт1) "><рг> 
<сехфагеа паме="фехЕргеЕ" гомз=10 со1$=15></{ехсагеа><пг> 
<1приЕ вуре="гезее" уа]е="Отменить"> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Вывод суффиксов строки 


Необходимо написать программу, которая выводит все суффиксы заданной 
строки. Строка у называется суффиксом строки $, если строка $ представима 
как ху. 


При решении этой задачи следует сначала выделить последний символ 
строки, затем предпоследний и последний и т. д. Функция зоЕ осуществляет 
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формирование строки, которая затем будет помешена в соответствующее 
поле формы, В строке хранятся суффиксы введенного слова: 
Еапс®1оп за (0571) 
{ уаг $=ор).Чаба.уа]щае 

уаг п=5.1епаер 

уаг гез ="" 

Бог (уаг 1=10-1; 1 >=0 ; 1--) 

{ гез +=$.зарзег (1, п)+"\х\п" } 


ор) .фехЕ5оЁ.уа1ае = гез 


Метод зоьзех (п1,п2) также позволяет выделять из строки подстроку. Пара- 
метр п1 задает позицию первого символа подстроки; параметр п2 определяет 
количество символов в подстроке. Например, если строка з="сборник", ТО В 
результате выполнения заюз+г (0,4) будет выделена подстрока "сбор". 


Вычисление количества повторений 
строки в тексте 


Напишем программу, которая определяет, сколько раз заданное слово встре- 
чается в определенном тексте. 


2 Количество заданных слов в тек, 


Пт ат Аааа лм лама Ал лот АА. По АклкАа КА АЛ ила 


| Файл Правка Вид Перекод_ Избр | 


Количество заданных слов в тексте 


Введите текст: 


формула в тексте 
формула и ее 
представление 
формула формула 


Введите слово: [формула 


лье ще ето зала оная пля теъадльь то ваериллюже к а же трее паи стает в наллла я Ал лАл Атласа вшлалькл т тальаж яви миа тощие ро лата атома <^ 


^^ Отменить > 


Рис. 12.4. Число заданных слов в тексте 
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В тексте слова разделяются пробелами. После того как очередное слово 
найдено, просмотр продолжается с символа, следующего за найденным сло- 
вом. На рис. 12.4 показано, как может выглядеть документ, 


НТМГ-код документа представлен в листинге 12.6. 


: Листинг 12.6. Количество заданных слов в тексте = 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Количество заданных слов в тексте</ТТТЬЕ> 
<5сг1ре 1апацаде="Зауа$сг1р®"> 
<!-- // 
ЕапсЕ1оп попмога (07) 
{ уаг Р=оБ) .Чафа.уа1лае 
уаг $з=о0оЪ].КбехЕ1п.уа1оае 
$=' 1'+5+' \ 
= "++! \' 
уаг п=Пп. 1епаеВ 
уаг гез=0 
уаг 1=0 
мр11е (1 <= $3.1епаев-1) 
{ сп=$.зарзех (1,1) 
1Е (ср==Ь) {гез+=1; 1 = 1+0-1} 
е]15е 
1++ 
} 
ор] .гези1е.уа]ае=ге$ 
} 
//--> 
</зсг1реЕ> 
</НЕАО> 
<ВОБУ Басо1ог="#ЕЕЕЕСС"> 
<Н4>Количество заданных слов в тексте</Н4> 
<ЕОВМ папе="ЁЕоги1"> 
Введите текст:<Ьг> 
<сехфагеа папе="®ехЕ1п" гом$=4 со1$=20></Еехфагеа><рг> 
Введите слово: <1приё $уре="кехе" папе="Ааака" з12е="8"><рг> 
<1прие вуре="Баевоп" уа]ае="Определить" 


опС11ск="папмога (ЁЕогта1) ">< г> 
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Количество слов в тексте: <1праЕ суре="$ехЕ" паме="гезо14" 
$12е=8><рг> 
<1праЕ суре="гезее" уа]це="Отменить"> 
</ЕОВМ> | 
</ВорУ> 
</НТМЬ> 


Зеркальная перестановка символов 


Напишем функцию, которая формирует строку, являющуюся перевернутой 
по отношению к заданной. Если задана строка "топор", то по ней должна 
быть построена строка "ропот". | 


Просматривается исходная строка з слева направо, и одновременно форми- 
руется новая строка $1, элементы в которую добавляются с начала. Функция 
теу Переворачивает исходную строку. 
ЕапсЕ1оп геу($) 
{ ухаг п=$.1ердеВ-1 

уаг П 

уаг $1='' 

Бог (уаг 1=0; 1 <=п; 1++) 

{ $1+=$.срагА® (п-1) } 


гебагп $1 


Палиндром 


Напишем функцию, определяющую, является ли заданное предложение па- 
линдромом. 


Палиндромом считается строка, которая читается одинаково как слева на 
право, так и справа налево. Палиндромами являются слова: казак, кок, ша- 
лаш и др. Палиндромами могут быть фразы, обычно считается, что пробелы 
между словами, знаки препинания и различия между маленькими и боль- 
шими буквами игнорируются. Например, палиндромами являются фразы: 

С] а роза упала на лапу Азора 
О кит на море не романтик 


На рис. 12.5 изображен результат выполнения сценария анализа текста. 


Будем анализировать текст с обоих концов, пропускать пробелы. Если оба 
анализируемых символа не являются пробелами, то сравним эти символы. 
Если они различны, то анализ текста можно завершить, фраза не является 
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палиндромом. Если же очередные символы одинаковы, то анализ следует 
продолжить. Заметим, что значение р1 в программе может только увеличи- 
ваться, значение р2 лишь уменьшаться. Процесс проверки следует прекра- 
тить в случае, когда значение р1 станет больше или равно значению р.2. Это 
означает, что просмотрена вся строка, и символы на соответствующих мес- 
тах одинаковы. 


И их ся 


_ Файл "Правка `В ‚Избранное _ „Сервис — Справка ИЕ аи 


Я 3 де аиь о домик 


Является ли строка палиндромом? 


Введите строку: кит на море не романтик, 


Зе дали у талх. Аллах лалодллалаади пардиикь ди лк и умак лав иле лдллир таща та Ал тел лля пал мы лщдлалаля тА а полевая да аля АА уча оля ль маня ААА реа тала палача чАь в авиа ал к к ладить лжи Ал ола емлщал ль чали 


Результат: [Является палиндромом 


читки че < лизал ма ЗАДА т куолала треда кцна палки ААА плллеа жид ом илл ла делААл к ажни  прулкле пее кодеш молил ьил почию ях ОЛА ЗААчвкл. пыл ллжл дар луч ча лкди 9 лжи др аль нод дыдли, Ал алалел Аъь ие даль лан 


ааа ое де А ата слела аа 


Г Определите | _Отчение 


Рис. 12.5. Строки-палиндромы 


НТМГ-код приведен в листинге 12.7. 


| Листинг 12.7. Строка-палиндром 


<НТМГ> 
<НЕАО> 

<ТТТЬЕ>Проверка, является ли строка палиндромом</ТТТЬЕ> 

<5сг1ре 1апададе="Фауа$ сг1р®"> 

<!-- // 

опсЕ1оп ра] (057) 

{ уаг $=ор] .Ааафа.уа1ае 
уаг п=5.1епаер-1 
уаг р1=0 
уаг р2=п 
уаг с1=$.сракАХ (0) 
уаг с2=5.срагАЕ (п) 
у\аг р=Ёгае 
уаг $1="" 
\р11е ((р1<р2) &5 (р==6гае)) 
{ 1Е (с1==" ")  {р1+=1; с1= $.срагА® (р1) } 
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е15е 
1ЁЕ (с2==" ") {р2 -=1; с2= 5.сракА® (р2) } 
е1.5е 
1Е (с1==с2) 
{р1+=1; с1=$.срагА® (р1); р2-=1; с2=$.срагкА® (р2) } 
е1зе {р = Еа15е} 
} 
1Е (!р) з1="не является палиндромом" 
е15е з1="является палиндромом" 
ор) .гез.уа]ае=$1 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<вору> | 
<Н4>Является ли строка палиндромом?</Н4> 
<ГОЁВМ паме="Еогти1"> 
<рге> 
Введите строку: <1приЕ $уре="6ехе" папе="Чафа" $12е="50"><рг> 
Результат: <1праЕ фуре="$ех®" паме="гез" $1хе="30"><Вг> 
<1прие $уре="Баекоп" уа1ае="Определить" опС11ск="ра1 (Еогт1) "><пг> 
<1приЕ суре="гезее" уа]ае="Отменить"> 
</рге> 
</ЕОВМ> 
</ВОПУ> 
</НТМГ> 


Упражнения 


1. Напишите программу, которая в последовательности чисел находит чис- 
ло правильных троек. Тройка чисел А, В, С называется правильной, если 
верно В -А=С- В. 


2. Напишите программу, которая определяет, является ли последователь- 
ность символов идентификатором в заданном языке программирования. 


3. В строке хранятся фамилия, имя и отчество, разделенные пробелами. 
Напишите программу, которая выводит: 


е фамилию; 
е инициалы; 


® ИМЯ. 
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4. 


10. 


11. 


12. 


13. 


Напишите программу, которая проверяет, является ли одна из строк 
префиксом или суффиксом другой заданной строки. 


Слова в заданном тексте разделяются пробелами. Напишите программу, 
которая определяет: 


е количество СЛОВ В тексте, 


е П-е слово в тексте (если значение пя больше, чем слов в тексте, то 
программа должна выдать соответствующее сообщение); 


е Последнее слово в тексте, 
е самое короткое слово в тексте. 


Напишите программу, в которой все слова А заменены словом В, где А 
и В — заланные слова, возможно, различной длины. 


Напишите программу, которая "сжимает" заданный текст, т. е. заменяет 
все подряд идущие пробелы на один. 


Напишите Программу, которая все подряд идущие одинаковые символы 
заменяет на один. 


Напишите программу, которая в заданном тексте находит все те слова, 
которые состоят только из заданных букв. 


Напишите программу, которая определяет в заданном тексте все слова- 
палиндромы. 


Напишите программу, которая определяет, состоят ли два заданных тек- 
ста из одних и тех же слов. 


Напишите программу, которая анализирует три текста: 

е определяет все слова, которые встречаются в каждом из текстов; 

» все слова, которые встречаются лишь в одном из текстов; 

» все слова, которые встречаются, по крайней мере, в двух текстах. 
Напишите программу, которая определяет, что все слова в тексте различны. 


Глава 13 


Стандартные функции 
работы со строками 


В языке Лауа$спире определены стандартные функции, при работе с которы- 
ми не требуется создавать никакого объекта. Функции осуществляют анализ 
своих аргументов. 


Функция Мольех (з) преобразует строковый параметр з в число. Эту функ- 
цию уже неоднократно использовали в предыдущих сценариях. Функция 
$Ег1па (п) преобразует число п в строку. 


Автоморфные числа 


Напишем сценарий, в результате работы которого определяется, является ли 
введенное число автоморфным числом. Напомним, что натуральное число 
называется автоморфным, если оно содержится в качестве младших цифр в 
своем квадрате. Например, число 25 является автоморфным, т. к. 252=625. 
Опишем функцию ауфомогЕ, которая преобразует введенную строку в число 
и находит квадрат числа. Далее работа осуществляется со строками. Выде- 
ляются последние символы строки, представляющей квадрат числа, и срав- 
ниваются со строкой, соответствующей числу. Результатом этого анализа 
является решение задачи. Приведем сценарий в листинге 13.1. 


| Листинг 13.1. Автоморфные числа _ 


. О 
ооо ооо осо соо оно со с ооо ово о ос ооо оо но оо ао оно ооо ч оо носов ооо во ооо ооо ооо соа вос росо ооо со чан о вос ис ооо вое ооо о ов ооо осо ор о ооо оо ча ооо ооо со ооо воно ооо совер ооо сос ово счоонооовосвое ъ- 


<НТМЫ> 
<НЕАО> 

<ТТТЬЕ>Автоморфные числа</ТТТЬЕ> 

<$сг1ре 1апаааде="Зауа$ск1р®"> 

<!-- // 

ЕопсЕ1оп аубомохкЕ (09571) 
{ Ууаг а=Мопег (об) .пом.уа1ае) 

уахг р=а*а 
ор] .пим1 .уа1ае=р 


уаг за= $5&г1па (а) 
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уах зр= 5&г1па (р) 
уаг пза= за. 1епаей 
уаг пзр= зр.1епаЕВ 
епазр=зр. зирзег (п5р-пза,пза) 
1Е (епазр==за) оБ).гез.уа1ае="автоморфное" 
е15е оБ}.гез.уа]ае="не является автоморфным" 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОБУ> 
<Н4>Проверка, является ли заданное число автоморфным</Н4> 
<ГОВМ папе="Еогт1"> 
<рге> 
Число: <1приЕ буре="+ехЕ" 512е=25 папе="пим"><Вг> 
Число в квадрате: <1прае Еуре="$ехе" $12е=25 паме="пот1"><рг> 
Результат: <1праЕ суре="фех®" $12е=25 пацпе="хез"><рх> 
</рге> 
<1приЕ вуре="роаееоп" уа]1ае=Определить опС11ск="аусотогЕ (Еотгт1) "> 
<1прае фуре="гезее" уа]ае=Очистить> 
</ЕОВМ> | 
</ВОБУ> 
</НТМЬ> 


Автоморфные числа 
в заданном интервале 


Напишем сценарий, определяющий все автоморфные числа в заданном ин- 
тервале. 


Функция 1пеегау обеспечивает перебор всех натуральных чисел в заданном 
диапазоне. Для каждого из чисел диапазона проверяется, является ли оно 
автоморфным, и если это так, то формируется строка результата. В строку 
результата заносится само число и его квадрат. Кроме того, информация о 
каждом числе располагается на отдельной строке. Строка результата поме- 
щается в текстовое поле. Если в качестве промежутка взять интервал 
[20; 9999], то результат работы сценария будет таким, как на рис. 13.1. 


Текст программ, реализующих поиск автоморфных чисел в заданном интер- 
вале, и НТМГ-код представлены в листинге 13.2. 
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Файл. _ Правка ` Е _ Избранное _ Сервис ` Справка _ 


К и их ме ААА гм Ум мы еее 


Автоморфные числа в заданном интервале 


Левая граница интервала: [20 
” | Правая праница интервала: [6999 


килем МОЗААА ЛА АОИ А ОМА АЖИДКА А АЗАЛАЧАА САМА АА АВА моль о ЛА ею АА оли аи пли ЗАЩА Ах мак лвл лимиты уллоАи ллмь 


Автоморфные числа в интервале от 20 до 9999 
25 625 


96 5776 
376 141376 
625 390625 


Очистить. | 


кл оао алла 


19 Мой! компьютер о 


Рис. 13.1. Автоморфные числа в заданном интервале 


| Листинг 13.2. Автоморфные числа в заданном интервале 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Автоморфные числа в заданном интервале</ТТтТЬЕ> 
<5сг1р®е 1апацаде="Зауа$сг1р®"> 
<!-- // 
Еопс61оп 1п$егаух(оЬ7) 
{ уаг $="" 
уаг 1=ор).1еЕф.уа1ае 
уаг г=ор).г1а.уа1ае 
уаг 5="Автоморфные числа в интервале от "+1+" до " +г+"\г\п" 
ог (уаг 1=1; 1<=г; 1++) 
1Е (аубомогЕ (1) ) 
$ +=1+" "+1%*1+"\г\п" 
ОБ] .гезц1е.уа1ае=$ 
} 
ЕопсЕ1оп ауФомогЕ (а) 
{ уаг р=а*а 
уаг за= 5%г1па (а) 


уах зр= 5&г1па (р) 
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уаг пза= за.1епаеВ 
уаг пзр= зр.1епаеВ 
епазр=$р. зар$ех (пзр-пза, пза) 
хебагп (епа5р==за) 
} 
//--> 
</зсг1р®> 
</НЕАО> 
<ВОПУ> 
<Н4>Автоморфные числа в заданном интервале</Н4> 
<РОВМ папе="ЁЕотт1"> 
<рге> 
Левая граница интервала: <1прае вуре="+ехе" $12е=10 паще="1еЕе"> 
Правая граница интервала: <1приЕ фуре="$ехе" $12е=10 паще="г1а"><Вг> 


<1прае суре="Баебоп" уа1ае=" Найти " опС11сКк=" 1п- 
фегах (Ёогт1) "><рг> 


<сехкагеа со15$=45 гомз=5 папе=гез\11*></$ехкагеа><ру> 
<1пра& фуре="гезее" уа1ае="Очистить"> 
</рге> 
</ЕОВМ> 
</ВОПУ> 
</НТМЬ> 


Числа Армстронга в заданном интервале 


Напишем сценарий, определяющий все числа Армстронга, расположенные в 
заданном интервале. Натуральное число называется числом Армстронга, если 
оно совпадает с суммой К-ых степеней составляющих его цифр, где А — ко- 
личество цифр в числе. Например, таким является число 153, т. к. 153= 
=13+53+33. 

Функция ага получает в качестве параметра строку, для которой требуется 
определить, представляет ли содержимое строки число Армстронга. Пере- 
менная 1з определяет длину строки или количество цифр в числе. Далее в 
строке отщепляется по одному символу, символ преобразуется в число, оп- 
ределяется значение в заданной степени, и полученный результат добавля- 
ется к формируемой сумме. После того, как все символы строки будут про- 
смотрены, проверяется условие для числа Армстронга. Функция агм выдает 
значение +кгое, если число является числом Армстронга: 


Рарс&1опр ахт($) 
{ таг В; уаг К; хаг г 


уаг 1$= $.1еп9 В 
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зап 
Гог (уаг 1=0; 1<=1$-1; 1++) 
{ №=$.срагА® (1) 
К=М№агрехг (В) 
г=Маей.ром (К, 15$) 
зищ+=Е 
} 
тесогр ($5==56г1п9а (51) ) 


} 


Перебор осуществляется функцией 1пеекау. Просматриваются все числа из 
заланного диапазона, и для каждого из них проверяется, является ли данное 
значение числом Армстронга. Так как параметр функции агю — строка, то и 
при обращении к ней в функции {пеегау числовой параметр 1 преобразуется 
в строку. Результат работы помещается в текстовое поле. Каждое число распо- 
лагается в отдельной строке. Описанные сценарии приведены в листинге 13.3. 


Листинг 13.3. Числа Армстронга в заданном интервале ^^ 2. 
<НТМГЬ> 
<НЕАО> 
<ТТТЬЕ>Числа Армстронга в заданном интервале</ТтТТЬЕ> 
<5сх1ре 1апдцаде="Зауа$сг1ре"> 
<!-- // 
ЕопсЕ1оп 1п6егау(оЪ]) 
{ уак $="" 
` таг 1=ор) .1еЕе.уа1оае 
уаг г=ор).г1а.уа1ае 
уаг з="Числа Армстронга в интервале от "+1+" до " +г+"\г\п" 
Еог (уаг 1=1; 1<=г; 1++) 
1Е (ата (56г1п9д(1))) 
$+=1+"\г\п" 
оь) .гезо1*.уа1ае=$ 
} 
Еопс®1оп агт($) 
{ уаг Р; уаг К; уаг т 
уаг 1$= $.1епчЕВ 
эапе=О 
Рог (уаг 1=0; 1<=1$-1; 1++) 
{ р=$.спагАф (1); К= №ирехг (1); х=Маев.ром (К, 15); эаа +=г } 


тесатп ($==56г1па (зат) ) 
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} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
<р4>Числа Армстронга в заданном интервале</в4> 
<РОВКМ паще="Еогт1"> 
<рге> 
Левая граница интервала: <1приае фуре="%ехе" $17е=10 папе="]еЕф"> 
Правая граница интервала: <1прае суре="$ехе" 317е=10 папе="г1а"><Втг> 
<1приЕ Еуре="раефоп" уа1ае=" Найти " опС]1ск=" 1п6егау (Ёотгт1) "><рг> 
<сехфагеа со1$=45 гомз=8 паме=гез1*></Еехкагеа><рЬтг> 
<1приЕ вуре="гезее" уха]ае=“"Очистить"> 
</рге> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Если поиск чисел производить в интервале [100; 9999], то результат работы 
сценария будет таким, как на рис. 13.2. 


ЕТ Числа Армстронга в в заданном интервале - Местозой Е. ‚ НГ ЕЗ 
5ранно _ Сервис: _ Справка ВИ 


Числа Армстронга В заданном интервале 


Левая граница интервала: [100 | 
Правая граница интервала: : 8999 


клик оаАля А п одалидля Аир ли елки АлАчаАко к ААА. лика там суищалакя чАдльлелкд = чи джей © д дала плщалль ЗАААААААЛАьл та лики чадо, ллледалкя Але вне 


— Очистить _ 


:) 
оО и К-т ия 


поч 


Рис. 13.2. Числа Армстронга в заданном интервале 
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Системы счисления 


Функция рагзегп+ ($,п) возвращает целое число по основанию, заданному 
в качестве второго параметра. Если первый символ в строке не является 
цифрой в указанной вторым параметром системе счисления, то функция 
рагзеТп® ($,п) Возвращает значение "Мам". 

Приведем сценарий, который содержит функцию-тест, демонстрирующую 
работу функции рагзетп+ (з,п). В результате работы теста исследуется вве- 
денная строка, и выводятся числа, соответствующие этой строке в различ- 
ных системах счисления (листинг 13.4). 


| Листинг 13.4. Демонстрационные тесты для функции рагзето* (3,1) ^^ | 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Тест, демонстрирующий работу функции рагзеТпЕ (3, п) </ТТТЬЕ> 
<$сх1ре 1апацаде="Зауа$сг1ре"> 
<!-- // 
Еорс1оп %е5$6 (057) 
{ уаг з=ор).пиомеез$®.уа1ае 
уаг %1]=рагзеТп* ($,16); ор).6езе1.уа1ае=е1 
уаг +2=рагзеТпе (3,10); ор)].6е5е2.уа1ще=Е2 
уаг %3=рагзеТп* ($5,8); ор).Ее5Е3.уа1ае=ЕЗ 
уаг Е4=рагзеТпЕ ($5,2); 05].Ее5Е4.уа1ае=ье4 
уаг Е5=рагзеТп* ($5,7); 05].%е565.уа1ае=е5 
} 
//--> 
</зсх1ре> 
</НЕАО> 
<ВОПУ> 
<Р>Тест, демонстрирующий работу функции рагзеТпЕ ($,п) </Р> 
<рге> | | 
<РОЁМ папе="ЁЕогт1"> 


Исходная строка: `<1прие $суре="фехе" $12е=25 
папе="помеез$ ">< г> 


Число в шестнадцатеричной системе <1прае $уре="$ехе" $12е=25 
паще="$ез{1"><рг> 


Число в десятичной системе <1праЕ Еуре="вехе" $12е=25 
папе="+ез&2"><Вг> 


Число в восьмеричной системе <1проЕ суре="$ехе" $17е=25 
папе="сезЕ3"><рг> 
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Число в двоичной системе <1приЕ суре="$ехе" 5$12е=25 
папе="$е54"><Вг> 


Число в семеричной системе <1прие суре="вехе" $517е=25 
пате="$ез$5"><Вх> 


<1приЕ фуре="раееоп" уа1ае=Тест опС11сКк="$ез% (Еоии1) "><рг> 
<1приЕ Еуре="гезее" уа1ае=Очистить> 
</рге> 
</ЕОКМ> 
</ВОрУ> 
</НТМГ> 


Идентификация кратности 9 


Напишите программу, которая по введенной строке определяет, является ли 
содержимое строки числом, кратным 9. 


Итак, строка может не представлять числа, или представлять число, не 
кратное 9, или, наконец, представлять число, кратное 9. Сначала убедимся в 
том, что строка содержит число, а затем проанализируем, является ли оста- 
ток от деления данного числа на 9 равным нулю. Для выполнения этих про- 
верок воспользуемся стандартными функциями рагзеЕ1оа{ И 1зМам. 


С Функция рагзеЕ1оа* (5) анализирует значение строкового параметра $ и 
определяет, соответствует ли строка з представлению вещественного чис- 
ла. Если в строке содержится символ, отличный от символов, разрешен- 
ных при формировании вешественного литерала, то оставшаяся часть 
строки игнорируется, в качестве результата функции возвращается чи- 
словое значение, которое обнаружено до неправильного символа. Если 
первый символ в строке не является цифрой, то функция рагзеЕ1оа+ (5$) 
возвращает значение "Мам". 


С] Функция 1зМам ($) проверяет, является ли параметр з числом. Если па- 
раметр з не является числом, то функция возвращает значение сгое, В 
противном случае — значение га1зе. 


Сценарий приведен в листинге 13.5. 


| Листинг 1 3.5. Представляет ли строка число, кратное 9 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Проверка, является ли содержимое строки числом, 
кратным 9</ТТТЬЕ> 
<$сг1ре 1апададе="Фауа$сг1ре"> 
<!-- // 
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Еопсе1оп %ез%(о]) 
{ таг п 
уаг з= о) .пиам.уа]1ое 
уаг эсгез="" 
1Е (1$МаМ($)) 
згез="Введенная строка не является числом" 
е15е 
{ п=Матфрег ($) 
1Е ((п59)==0) 
зЕгез="Введенная строка - число, кратное 9" 
е1 зе 
зЕгез="Введенная строка - число, не кратное 9" 
} 
оЬ].гез.уа1ае=$$гез 
} 
//--> 
</зсг4рЕ> 
</НЕАО> 
<ВОПУ> 
<Р>Проверка, является ли заданная строка числом, кратным 9</Р> 
<рге> 
<РОВМ паме="Ёогт1"> 
Исходная строка: <1приё буре="%ехе" $12е=45 паме="пом"><пг> 
Результат: <1при®& Еуре="+ехе" $12е=45 паме="гез"><пхг> 
<1праЕ Еуре="БиЕфоп" уа1ае=Определить опС11ск="{ез& (Ёохт1) "><ру> 
<1приЕ вуре="гезее" уа1ае=Очистить> 
</рге> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Упражнения 


1. Напишите программу, которая определяет, является ли введенная последо- 
вательность символов "изображением" целого двоичного числа без знака. 


2. Напишите программу, которая для последовательности символов опреде- 
_ ляет, содержит ли она целое значение, кратное 5. 
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3. Напишите сценарий, в результате работы которого выясняется, является 
введенная последовательность символов натуральным числом, которое 
при делении на 7 дает в остатке 5. 


4. Напишите сценарий, определяющий А-ю цифру последовательности, в 
которой выписаны подряд: 


» все натуральные числа (1234567891011121314...); 
» квадраты натуральных чисел (149162536...); 

» все числа Фибоначчи (1123581321...); 

е все простые числа (2357111317...). 


Глава 14 


Массивы и методы 
работы с ними 


Общие сведения 


Массив представляет собой набор элементов, доступ к которым осуществля- 
ется по индексу. Массив создается оператором пех и конструктором масси- 
ва — системной функцией Аггау. Создать массив из названий дней недели 
можно, например, следующим образом: 

уаг МРауз = пем Аггау ("воскресенье", "понедельник", "вторник", 


"среда", "четверг", "пятница", "суббота") 


В качестве параметров конструктору передаются значения элементов массива. 
Можно создать массив, указав в нем лишь число элементов, например, так: 


уаг М№Чау$1= пем Аггау (7) 


И, наконец, можно использовать конструктор без параметра: 


уаг М№Чау$2= пем Аггау() 


В этом случае определяется лишь, что переменная м3Зауз52 используется в 
качестве массива. 


Все элементы массива перенумерованы, начиная с нуля. Для получения 
значения элемента массива необходимо задать имя массива и в квадратных 
скобках порядковый номер элемента. Для того чтобы получить доступ к 
первому элементу массива, следует воспользоваться конструкцией Мдауз [0]. 


Свойство 1епаЕр позволяет определить число элементов в массиве или, как 
говорят, длину массива. Доступ к последнему элементу массива можно осу- 
ществить, например, следующим образом: 

МЧау$ [Маау$ .1епаЕП-1)] 

При описании переменной м№дауз1 задана только длина массива. Значения 
элементов массива можно указать с помощью оператора присваивания: 
М№аау$ [0] ="воскресенье" 

№ау$ [1] ="понедельник" 

МЧау$ [2] ="вторник" 


№Чау5 [2] ="среда" 
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№Чау$ [2] ="четверг" 
№Чау$ [2]="пятница" 
№Чау$ [6] ="суббота" 


Функция определения 
выходного/рабочего дня 


Напишем функцию, которая по строке, являющейся названием дня недели, 
определяет, является ли этот день выходным или рабочим (листинг 14.1). 


ооо ооо я о ооо ооо ооо ооо ово ооо оо ооо соо ооо ооо ооо во ооо о попе са о соо чо о ооо вос оо тона ооо аси цо но о ооо ооо ооо чо ооо чочо оо ова о свое оо во вое в о чо ооо о чо ооо оо сов ово осо со ото вос о вос о в 
. 


Еопс®1оп ага ($) 
{ уаг гез="рабочий" 
1Е (($== МБау$[0]) || (5$== МБау$[6))) 
ге5="выходной" 


гебигп гебз 


Определение времени посещения 
\еБ-страницы 


Необходимо написать сценарий, который формирует сведения о текущей 
дате и времени в следующем виде: 


Вы посетили эту страницу 
| ноября 2000 года 
в 5:26:03 
Сегодня — среда 


При решении задачи используется два массива: один для хранения названий 
месяцев, другой для хранения дней недели. В переменной зЕг формируется 
строка, которая затем будет выведена в документе (листинг 14.2). 


ооо ооо ово оо со косо ооо сто вос вопо ооо вор о орон оро соо о ово то ооо ро ро вот вос оо росе ров оо вос ото в ь в кор ор вооа тор ово оорро оо ооо ово о о ро ов р во оо соо о ово ооо сво ооо ово ооо оао вооовоо вос овооворооо 


<НТМЬ> 
<НЕАО> 
<$сг1ре 1апдцааде="Зауа$сг1ре"> 
// Названия месяцев 
ММопЕВ$ = пем Аггау("января", "февраля", "марта", "апреля", "мая", 
"июня", "июля", "августа", "сентября", 


"октября", "ноября", "декабря") 
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// Названия дней недели 
М№Пауз = пем Аггау("воскресенье", "понедельник", "вторник", "среда", 
"четверг", "пятница", "суббота") 
Еопс&1оп РаееТ1не () 
{ уаг пом = пем Баее () 
уаг плпаее = пом.адеЕМ1паевез () 
уаг зесопа = пом.дее$есопа$ () 


уаг Пойаг = пом.дееНопг$ () 


уаг пли = ( (папое < 10 ) ?":0" :;":") + пабе 
уаг зес = ( (зесопа < 10 } ?":0" : ":") + зесопа 
уаг з6г = "Вы посетили эту страницу<Ьг>" 


уеаг = пом.дееуеаг() + " " 
попер = пом. аеЕМопеп () 
тпопев = ММопер$[ попер] 
Чау=пом.дееПау () 
3Чау= Мрауз [дау] 
ег += пом.аеерафе() + " " + пор +" " + уеаг + " года<рг>" 
Ех += "в " + Войге + пал + 5ес + "<Бу>" 
5х += "Сегодня — " + 14ау 
Аосцтепе.мг1е (5%г) 
} 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
<Н4 а119п=сепсег>Пример использования функций 
определения времени</Н4> 
<СЕМТЕВ> | 
<5сг1р® 1апдааде = "Зауа5сг1рё"> 
РафеТ1те () 
</зсг1рЕ> 
</СЕМТЕК> 
</ВОБУ> 
</НТМЬ> 


Далее рассмотрим несколько классических задач, посвященных работе с 
массивами. Приведем функции работы с массивами, которые ценны сами 
по себе и могут применяться в различных программах. 
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Поиск максимального 
элемента массива 


Напишем функцию, которая определяет максимальный элемент массива. 


Сначала в качестве максимального элемента берется первый элемент масси- 
ва. Затем просматриваются элементы массива, и каждый элемент сравнива- 
ется с максимальным значением уже рассмотренных элементов. Если теку- 
щий элемент больше максимального значения, то максимальным становится 
текущий элемент. Таким образом, после просмотра всего массива определя- 
ется максимальный элемент. 


НТМЕ-код приведен в листинге 14.3. 


орровороориооо оо ооо поро оо в оора орон ре ооо то ото понорно вое вор ооо нос оо рос ооо ооо ооо соот оо в о ооо ооо ооо ооо опорно ооо ри ое о ро ооо соо оо ро о воров ооо ово оо © ор оборо ооо ооо ворон оо ооо восооовьосо ` 
` . 


: Листинг 14.3. Максимальный элемент массива _ 


РЕорпс®1оп пахе1ет (“м) 
{ уаг п= %[0] 
Рог (хаг 1=1; 1 <= У.1епдЕВ-1; 1++) 
{ ПЕ ([1] > п 
т=У [1] 
} 


гегагп м 


Определение количества 
максимальных элементов в массиве 


Напишем функцию, определяющую количество максимальных элементов в 
массиве. Если задан массив, состоящий из элементов (4, 5, 5, 5, 3, 5, 2, 3, 1, 
3, 4), то максимальным значением массива является 5, которое встречается 
4 раза. 


При просмотре массива кроме максимального значения запоминается коли- 
чество максимальных значений для просмотренной части массива. Если 
очередной элемент массива больше, чем максимальное значение для про- 
смотренных элементов, то максимальным становится очередной элемент, а 
количество максимальных устанавливается в |1. Если очередной элемент 
совпадает с максимальным, то число найденных максимальных элементов 
увеличивается на | (листинг 14.4). 
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Листинг 14.4. Количество максимальных элементов в массиве - 


Еорсе1оп паимах (У) 
{ уаг п= У[0] 
уаг К=:1 
Бог (уаг 1=1; 1 <= у.1еп9И-1; 1++) 
{ 1Е (%[1] > п) 
{пу [1]; К=1} 


е1зе 


Поиск заданного элемента 
в неупорядоченном массиве 


Напишем функцию, определяющую, присутствует ли заданный элемент в 
массиве. 


Если у нас нет дополнительной информации об организации элементов 
массива, то при поиске элемента следует воспользоваться алгоритмом, кото- 
рый получил название линейный поиск. Согласно этому алгоритму будем 
сравнивать поочередно все элементы массива у с образцом +. Если очеред- 
ной элемент совпадает с +, то задача решена. Если искомого элемента в 
массиве нет, то убедимся в этом, лишь просмотрев все элементы массива. 
В качестве результата работы функции можно выдавать логическое значение 
Е гие, если элемент найден, и Еа1зе — в противном случае. Иногда удобно 
выводить номер найденного элемента, если же элемента в массиве нет, то 
отобразить некоторое заданное значение, например, -1 (листинг 14.5). 


: Листинг 14.5. Поиск элемента в неупорядоченном массиве 


ЕорсЕ1оп 11пзеахг(\,®) 


{ уаг К=-1 
Еог (\ах 1=0; 1 <= \у.1епа®В-1; 1++) 
1Е (%[1] == ) 


{К=1; ЮгеаКк} 


гебауп К 
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Поиск заданного элемента 
в упорядоченном массиве 


Напишем функцию, определяющую, присутствует ли заданный элемент в 
упорядоченном массиве. 


Если элементы массива упорядочены, то организовать поиск элемента с за- 
данным значением можно согласно алгоритму бинарного поиска. Пусть пе- 
ременная 1 — индекс первого элемента, значение 3 — индекс последнего 
элемента массива, среди которых осуществляется поиск. Определяется ин- 
декс элемента к, находящегося посередине. Далее к-й элемент массива у[х] 
сравнивается с образцом +. Если окажется, что +<=у[к], то поиск следует 
продолжать среди элементов с индексами [1, к], если же +>у[к], искать 
надо среди элементов [к+1, 3]. Процесс поиска продолжается до тех пор, 
пока исследуемая часть массива не станет равной одному элементу, тогда 
результат будет зависеть от того, равен этот элемент образцу или нет. Функ- 
ЦИЮ Б1пзеаг (у,®) опишем так, как указано в листинге 14.6. 


хотело но ооо ооо осо ооо и ооо ооо точечное ооо оо оо оса оо чочо оон оо чоовосооо ооьо соо ооо ооо чо ох во 4 оо бо зоо ро ово оо чо осо ооо ое ооо поточнее сов оно ооо чес ооо чо соо оч оное < 


Листинг 14.6. Поиск элемента в упорядоченном массиве. 


Еопсе1оп Б1пзеахг (\,®) 
уаг 1=0 
уаг = \.1епа®В-1 
уаг К 
им11е (1 < 7) 
{ К=МаеВ. гомпа ( (1+7) /2+0.5)-1 
1Е (& <= У[К]) 
)=К 
е15е 
1=К+1 
} 
ТЕ (9[1] == $) { гевогр 1} 
е1зе гебагп -1 


} 


Заметим, что значение переменной 1 может лишь увеличиваться, значение 
переменной 3) только уменьшаться, причем при каждом повторении тела 
цикла либо увеличивается значение переменной 1, либо уменьшается значе- 
ние переменной } и значение переменной 1 меньше значения 3. Когда зна- 
чения 1и 3 совпадут, цикл завершит работу. Рассмотрим случай, когда ис- 
следуются только два элемента. Значение к на следующем шаге итерации 
станет равным значению 1. Если значение + меньше или равно у[1], то пе- 


11 Зак. 834 
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ременной 5 будет присвоено значение к, значения переменных 1 и 3 совпа- 
дут, цикл завершит работу. Если же значение + больше у[:], то переменной 
+ присвоится значение к+1, и в этом случае значения 1 и 3 совпадут. 


После выполнения цикла сравнивается значение 1-го элемента со значени- 
ем +, и результат выдается в качестве работы функции. Пусть исходный 
массив состоит из элементов, упорядоченных по возрастанию (2, 3, 5, 6, 6, 
7, 10, 11, 20, 25), а значение + равно 7. Ожидаемый результат — индекс най- 
денного элемента, равный 5. 


Бинарный поиск с формированием 
таблицы результатов 


Напишем функцию, которая реализует алгоритм бинарного поиска таким об- 
разом, чтобы во время работы программы формировалась таблица значений 
переменных 1, 3, к и некоторых выражений так, как показано на рис. 14.1. 


Е] Бинарный поиск. Таблица промежчточных значений - ‚ Местозой. Гпчегп.. ‚ РЕЗ 


в Файл Правка Ви _ Избранное _ _Сервис _ _ Справка 


хм зеания .. ..—--. кк еее ве 


| "Реализация алгоритма а бинарного г поиска | 


_Насены о реттив о: 


прилет плеером ва оллия ке слерккли очко палка ащидл кедр ла ще ьдя соды деля пали памелла щахля ли палвадлмл пискамлле падал АКА ола лак пла талек дошажле седла пая плаще Ач козла олаая плача оли 


| элемент: и. о? | о | | 
Результат поиска: во | 5 


пиков таможни палалая доза оаля лик дада Ка талли вл] сл палолаащи Павии баллоллит оли лаем ле т олд ол едлклля кодедищеки "= плаза питал У АоДкАле ААА пади делл сева у толи чаддлаль и дит. 4 СОТА А сдлА- ча оли оли дла ода мл ое 


_ Таблица 1 промежуточных. ‘значений: - о. 


я] 5<= к] 
у[4]=6 7<=6 
У[7]=11  7<=11 
%[6]=10 — 7<=10 
У[5]=7 2<=7 


мжм-уюлял 


|: Определить — - Отменить |“... 


Рис. 14.1. Бинарный поиск с промежуточными значениями 


Текст функции представлен в листинге 14.7. 
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“Листинг: 14. 7. Поиск в ‚упорядоченном м массиве с с таблицей промежуточных _ 
: значений 


Зосроооо о оао соо о ооо ооо осо ооо ооо осо соо сов оно сов о осо о ооо соот отоо ооо ооо ооо о о о ооо че бос оо воров ово ооо оово ор чоосаооссоооооов оо осно ооо сос осо ово ооо о соо ооо вов оовос оо вос вооосочою 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Бинарный поиск. Таблица промежуточных значений</ТТТЬЕ> 
<$сг1ре ]апацаде="Зауа$си1ре"> 
<!-- // ` 
уаг \у=пем Аггау(2,3,5,6,6,7,10,11,20,25) 
Еопс®1оп сезЕбаЬ (ор ,\, Е) 
{ уаг гез="1 ) к [К] 6<= м[К]"+"\г\п" 
уаг 1=0 
уаг )= х.1епаеВ-1 
уаг К 
мр11е (1<)) 
{ К=Маев.гоора( (1+5))/2+0.5)-1 


тез = тез + 1 + " "++" "-к+" "их [" + 4 + "] =" + [К] 
+ и п + Е + "к=и + У[К]+"\к\п" 


1Е (Е <= У[К] ) 
9=К 
е1зе 
1=К+1 
} 
тез += "У[" + т+ "] =" +У[1]+"\г\п" 
оЬ7 .гез\11{1.уа1ще=гез 
ЗЕ (%[1] ==) 
{ гебагп 1} 
е15е гебагп -1 
}. 
Еопс&1оп %е$% (057) 
{ о5).Чаба1.ха1ае=у} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВООУ Ьдсо1ог=$11уег> 
<Н4>Реализация алгоритма бинарного поиска</Н4> 
<РГОВМ пате="Еотги1 "> 
<рге> 


Массив: <ТМРИТ Еуре="фехе" 512е=40 паме="аафа1" ><Вхг> 
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Элемент: <ТМРОТ фуре="ЕехЕ" 512е=20 паще="Ча®а2" ><Вг> 
Результат поиска: <ТМРИТ суре="Еехе" $17е=20 папе="геза1е" ><пг> 
Таблица промежуточных значений:  <ВВ> 

<сехрагеа со]13=50 гомз=7 паме="гезо1{1" > </кехбагеа><Вг> 
</РВЕ> 

<1прие суре="рае®оп" уа1ае=Определить 


опС11ск="6е$ф (ЁЕогт1); ЁЕогм1.геза1*.уа]ае=безЕЕаь 
(Гоги1,У,Еоги1 .аава2.уа1ае)"> 


<1приЕ суре="гезее" уа1ае=Отменить> 
</ГОЕМ> 

</ВОБУ> 
</НТМт> 


Идентификация симметричности 
массива 


Напишем функцию, определяющую, является ли массив симметричным, т. е. 
совпадает ли его первый элемент с последним, второй с предпоследним ит. д. 


Решать задачу будем следующим образом. Сначала сравним первый и по-. 
следний элементы массива. Если они не совпадают, то задача решена, и 
массив не является симметричным. Если значения первого и последнего эле- 
ментов массива совпадают, то анализ массива требуется продолжить. Функция 
51щагг1 (У) реализует описанный алгоритм (листинг 14.8). 


| Листинг 14.8. Проверка, является ли массив симметричным 


РопсЕЗоп зпагг1 (\) 
{ таг р= &$гае 
уах п= \.1епа®р 
Рог (уаг 1=0; 1 <= (п-1)/2; 1++) 
1Е (%[1] != У[р-1-1]) {р = Еа1$е; ЬгеаКк} 
гебагп р 


} 


Приведем еще один вариант решения задачи. Будем использовать методы 
работы с объектом Аггау, определенные в ГауаЗсире. Метод геуегзе() пере- 
ставляет элементы массива в обратном порядке, первым элементом стано- 
вится последний, вторым — предпоследний, а последний — первым. Метод 
]3о1п() преобразует элементы массива в строку. При решении задачи преоб- 
разуем исходный массив в строку зу, далее "перевернем" исходный массив и 
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опять преобразуем в строку. Если массив симметричен, то строки должны 
совпадать. Функция з1тагг В ЭТОМ СЛучае может быть описана так: 
Еапсе1оп э1тщагк (У) 
{ уаг зу=У.]олп () 
у. геуегбе () 
уаг $м=У.]о1п() 


гебсагп (5% == $мМ) 


Объединение массивов 
с упорядочиванием результата 


Пусть заданы два массива, состоящие из целых чисел, упорядоченных по 
возрастанию. Требуется написать функцию построения третьего массива, 
также упорядоченного по возрастанию и содержащего элементы как перво- 
го, так и второго массивов. 


Опишем алгоритм решения задачи, который называется алгоритмом слия- 
ния двух упорядоченных массивов. Исходные массивы просматриваются 
"параллельно" до тех пор, пока в одном из них не будут исчерпаны все эле- 
менты. После этого непросмотренные элементы второго массива переписы- 
ваются в массив результата без изменений. Пусть 1 — индекс очередного 
элемента массива а, ) — индекс очередного элемента второго массива Ь. 
В массиве с содержатся уже упорядоченные элементы первого массива в 
количестве (1-1) и элементы второго массива в количестве (3-1). Если 
а[1]<=5 [3], то в массив с записывается элемент а[1] и осуществляется пе- 
реход к анализу следующего элемента массива а, т. е. значение переменной 
{ увеличивается на 1. Если же а[1]>5[)], то в массив с помещается 3-й 
элемент массива ь и происходит переход к анализу очередного элемента 
массива ь. 


Если один из массивов просмотрен полностью, то в результирующий массив 
помещаются элементы. другого массива. Опишем функцию з11(а,Ъ) 
(листинг 14.9, а). 


: Листинг 14.9, а. Объединение двух упорядоченных массивов. Вариант 1. 


Еорсе1оп $11 (а,Ъ) 
{ таг п=а.1епа®В-1 
уаг п=р.1елае-1 
уаг р=и+п 


уаг с=пем Аггау (р) 
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уаг 1=0; уаг )=0; уаг К=0; 
иЬ11е ((1 <= м) && (3 <= п)) 
{1Е (а[1] <= 5[3]) 
{< [К] 
е15е 
{с [К] 
К++ 
} 
1Е (1 >м) 


а[1]; 1++} 


Ь[7]; 3++} 


{ "Бе (3<=лп) 
{<[К]=5[3]; К++; 9++} 
} 
е1 зе 
{ мБ11е (1 <= п) 
{< [К]=а[1]; К++; 1++} 
} 


гебатп с 


} 


Функцию 311 можно упростить, если в исходные массивы вслед за основ- 
ными содержащимися в них элементами поместить элемент, заведомо 
больший любого элемента исходного массива. Тогда не возникает ситуации 
"дописывания" непросмотренных элементов какого-либо из массивов. 


В этом варианте решения в функции з12 будет использоваться лишь одни 
цикл (листинг 14.9, 6). 


"листинг 143. 5. Объединение двух упорадоченных массивов барита | 


РорсЕ1оп $12 (а,Ъ) 
{ таг п=а.1ераев 
уаг п=рЬ.1епаер 
а [тп] =тагкех 
Ь [п] =магкех 
уаг р=ш+п 
уаг с=пем Аггау (р) 
уаг 1=0; уаг 7=0; уаг К=0; 
Рог (К=0; К<р; К++) 
{1Е (а[1] <= 5[53]) 
{с<[ <] = а[1]; 1++} 


е1зе 
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{<[к] = [3]; ++} 
} 


гебоагпр с 


} 


Результат работы функции представлен на рис. 14.2. 


3 Слияние х двух ‚упорядоченных + массивов - - Местозой [пулей ЕрРоте 


|} Файл _ Правка Вид: 


> м у. дин 


Реализация алгоритма слияния двух упорядоченных массивов 


Первый массив: [4.6.8.101 2.20,35,56,101 
Второй массив: [3.5.7.9.11.14.25,34.44,78,92.107 


Результат слияния: |3.4,5.6.7,8,9,10,11,12,14,20,25,34,35,44,56,78,92.101,107| 


мА ея еле са еси дааа мк см макак а чакр. ола ая аи вклада лань Аи кака оса ме о АА КАЛИ АЛАН Ади ЗАЛА АЛААдАЖи та Аль ААА м ле роли кака жкадлня алк плдридл р илиулля. 


Определить - „ Отменить. 


Рис. 14.2. Слияние упорядоченных массивов 


При выполнении описанных функций 511 И $12 Исходные массивы про- 
сматриваются только один раз. 
Другой вариант решения задачи: соединить два массива в один, а затем от- 
сортировать по возрастанию получившийся массив. Такое решение никак не 
использует упорядоченность исходных массивов и признано неэффектив- 
НЫМ из-за алгоритма сортировки. Приведем такое решение, потому что за- 
манчиво использовать тот факт, что объект Аггау ИМеет метод зоге(), По- 
зволяющий упорядочивать элементы массива в лексикографическом 
порядке, и метод сопсае(), объединяющий два массива в один. Используя 
оба метода, опишем функцию 313 (а,Ъ): 
Еапсе1оп $13(а,Ь) 

{ уаг с=пем Аггау() 

с=а.солса® (Ъ) .зог® () 


гебагп с 


} 
При использовании метода сопса* () два массива объединяются в один: 


а.сопса® (Ъ) 


а затем, чтобы упорядочить полученный массив, применяется метод зоге: 


с=а.сопса® (5) .зог® () 
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Для исходных данных предыдущего примера в результате работы функции 
513 будет получен результат: 10, 101, 107, 11, 12, 14, 20, 25, 3, 34, 35, 4, 44, 5, 
56, 6, 7, 78, 8, 9, 92. 


Мы видим, что результат. неверен, т. к. элементы массива сравниваются как 
строки. Если элементами исходных массивов действительно являются стро- 
ки, то Функция з13 работает правильно. Один из тестов приведен на 
рис. 14.3. Заметим, что если бы исходные массивы были не отсортированы, 
то результат был бы тот же. 


.| ви, Правка Виа ‚Избранное _ Сервис _ Справка — 


Реализация алгоритма слияния двух упорядоченных массивов 


Первый массив: [Алексеев,Богатырев.Иванов,Котов.Кузьменко 
Второй массив: [Костин,Павлов,Соловьев,Ярин 


ПА ле ха лил зильенкие Аааа АЕ АА ее ние ст со Злая ми ке змеем А р тм 


Результат слияния: 


[Алексеев,Богатырев,Иванов.Костин,Котов.Кузьменко.Павлов,Соловьев,Ярин 


_ Определить Отменить | 


Рис. 14.3. Слияние массивов из строк 


Перестановка элементов массива 


Пусть в исходном массиве содержатся ненулевые вещественные числа раз- 
ных знаков. Требуется написать функцию, которая переставляет элементы 
массива таким образом, что сначала располагаются все отрицательные эле- 
менты, а затем все положительные. 


При первом варианте решения введем дополнительный массив и в него ста- 
нем записывать элементы в нужном порядке. При этом будем использовать 
две переменные, в которых сохраним индексы последних записанных в но- 
вый массив значений: отрицательных и положительных. Исходный массив 
просматривается один раз, и необходимый массив будет сформирован 
(листинг 14.10). 


ЕорсЕ1оп аА1уаг(а) 


{ таг е1 
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уаг 1=-1 
уаг п=а.1епаер 
уаг )=п 
уаг Ю=пем Аггау() 
Гог (уаг К=0; К <= п-1; К++) 
{ е1=а [К] 
1Е (е1 <О0) 
{ 1++; 6[1]=е1 } 
е1зе {7--; Ю[7]=е1} 
} 
а=Ь 
гегахгп а 


} 


Можно было бы всю работу по формированию массива произвести в исход- 
ном массиве. Для этого так же, как и в предыдущем случае, можно исполь- 
зовать две переменные 1 и 3, "движущиеся" навстречу друг другу таким об- 
разом, что за переменной 1 остаются только отрицательные элементы, за 
переменной 3 — положительные. На каждом шаге работы цикла проверяют- 
ся знаки 1-го и 3-го элементов. В зависимости от знаков элементов на 1-м и 
3-м местах сдвигается либо один, либо другой индекс. Если же сдвинуть ни 
одну из переменных нельзя, то меняются местами крайние элементы рас- 
сматриваемой части массива и процесс продолжается (листинг 14.10, 6). 


Листинг 14.10, 6. Переформирование массива. Вариант2_ | 
Еипс®1оп Ч1уаг(а) 
{ уаг п = а. 1епаеЬ 
уаг 1=0 
уаг 3=п-1 
уаг е11=а [1] 
уаг е12=а [3] 
имр11е (1 < 3) 
{ 1Е (е11 <О0) 


{ 1++; е11 = а[1] } 


е15е 
1Е (е12 >0) 
{ )--; е12=а[7] } 
е15е 


{ а[1] =е12; а[)]=е11; 1++; е11=а[1]; 7)--; е12=а[5] } 
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} 


гебагпр а 


} 


Для решения этой задачи мы могли бы описать простую функцию, которая 
использует метод сортировки массива Аггау. В результате выполнения опе- 
ратора а.зог®() (листинг 14.10, в) элементы будут отсортированы в лекси- 
кографическом порядке, и хотя для чисел сортировка выполнена неверно, 
но задача разделения массива, заключающаяся в том, что сначала распола- 
гаются отрицательные, затем положительные элементы, выполнена. 


Листинг 14.10, в. Переформирование массива. Вариант 3 _ 


Ропс®1оп Я1уагк(а) 
{ а.зогЕ () 
гебоагп а 


} 


Исполнение функции на одном из тестовых примеров приведено на рис. 14.4. 


Е Переформировать » массив. сначала отрицательные ЭЛ. 


о ао пои бАЕоАИЗИХАЕАЫ 


ПЕ фай _ Правка Вит. "Избранное _ Сервис 
Переформирование массива 


Массив: 4,6,-8,10.-12,20,-30,3,-1.-4,5,-6 


Результат: [-8.-12.-30,-1,-4-6,5-3,20-10,6,4 


лм холкалдр Алис валащАл- плаллвы ол чадом КЛЮЧА ла чллтлитнай полям ААА. дал ключа кл ллдалчл чочиалА т аАА т далАл в облил далека клал ААА АЛЛА пд лая + аля олд леди во ау = 


` Определить | `` Отменить 


Рис. 14.4. Переформирование массива 


Добавление элемента в массив 
без нарушения упорядоченности 


Напишем функцию, добавляющую в заданный отсортированный массив 
элемент, не нарушая упорядоченности. 


Будем просматривать элементы массива с конца, сдвигая каждый из них 
вниз до тех пор, пока не встретится элемент, значение которого меньше 
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значения вставляемого элемента. Когда необходимый элемент найден, на 
свободное место помещается добавляемый элемент (листинг 14.11). 


| Листинг 14.11. Добавление элемента в упорядоченный массив —_ 
Еорс®1оп аадаг (\м,%) 
{ уаг п=у.1ераЕБ 
уаг `)=п 
мр11е (3 >20) 
{ 1Е (< < У[)-1)) 
{У[3]=У[3-1]; 9--} 
е1зе 
{7[)]=Е; Бгеак} 
} 
1ЁЕ (7)==0) %[0]=6 
гебагп У 


} 


Если добавляемый элемент меньше первого элемента массива, то весь мас- 
сив следует сдвинуть на один элемент вниз, и вне цикла на первое место 
поместить заданный элемент. 


Удаление элемента массива 


Напишем сценарий, удаляющий из упорядоченного массива элемент, зна- 
чение которого совпадает с заданным. Если таких элементов несколько, то 
требуется удалить элемент с наименьшим индексом. 


При решении задачи поступим следующим образом. Воспользовавшись 
функцией бинарного поиска, определим индекс элемента, совпадающего с 
удаляемым элементом. Если такого элемента нет, то задача решена, а в про- 
тивном случае, сдвигаем "хвост" массива, начиная с к-го элемента на одну 
позицию вверх. НТМГ-код с описанными в нем функциями представлен в 
листинге 14.12. 


| Листинг 14.12. Удаление элемента из упорядоченмого массива = 


<НТМЬ> 
<НЕАО> 
<ТТТТЕ>Удаление элемента из упорядоченного массива</ТТТЬЕ> 


<5сх1ре 1апацаде="Зауа$ск1р®"> 
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<!-- // 
уаг у=пем Аггау(4,5,15,17,31,52,72,79,81,83,89, 91, 93,94, 98) 
Еапс&1оп &е5$% (о]) 
{ оЬ].Чдаба1.ха1ще=у } 
Еапсе1оп Б1пзеах (\%,%) 
{ уаг 1=0 
уаг ]=\.1еп че В-1 
уаг К 
ир11е (1 < )) 
{ К=МаЕБ. компа ( (1+7) /2+0.5)-1 
1ЁЕ (% <= У[К]) 


1Е (%[1] == $) 
{ гебагп 1 } 
е15е гебагп -1 
| 
Еопс®1оп аАе1аг (\,®) 
{ уаг п=у.1епаев 
уаг К=р1пзеаг(\,®) 
1Е (К != -1) 
{ Гог (уаг 1=К; 1 <= 1-1; 1++) 
У[1]= %[1+1] 
у. 1епаеП=п-1 
} 
хебагп у 
} 
//--> 
</зсх1рЕ> 
</НЕАО> 
<ВОрУ> 
<Н4>Удаление элемента из упорядоченного массива</НА4> 
<РГОВМ паме="ЁЕотиа1"> 
<рге> 
Массив: <1пруе Еуре="Еехе" $12е=40 пате="Чафа1" ><вг> 


Элемент: <1приЕ суре="Еехе" $317е=20 папе="Чафа2" ><рхг> 
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Результат поиска: <1прие Суре="кехе" $12е=40 папе="гези1е" ><Вг> 
</рге> 
<1приЕ суре="Баееоп" уа]ае=Определить 


о©пС11ск="ЕезЕ (Еогм1); `Еог1.геза1е.уа1ае= АЧе1аг 
(у, Мипфег (Еогт1.Чака2.уа1ае) ) "> 


<1приЕ суре="гезее" уа]ае=Отменить> 
</ЕОВМ> 
</ВОрУ> 
</НТМГ> 


Упражнения 


|. Задан одномерный массив вещественных чисел. Напишите сценарий, 
который определяет число положительных элементов массива. 


2. Задан одномерный массив вещественных чисел. Напишите сценарий, 
который определяет число отрицательных элементов. 


3. Залан одномерный массив целых чисел. Напишите сценарий, который 
определяет число минимальных элементов. 


4. Задан одномерный массив целых чисел. Напишите сценарий, который 
определяет число элементов, кратных 7. 


5. Задан одномерный массив целых чисел. Напишите сценарий, который 
определяет номер последнего минимального значения. 


6. Напишите сценарий, который определяет номер первого максимального 
значения в одномерном массиве целых чисел. 


7. Напишите сценарий, при работе которого определяется число элементов 
одномерного массива, совпадающих с заданным. 


8. Напишите сценарий, при работе которого определяется, есть ли в мас- 
сиве элементы, значения которых совпадают. 


9. Напишите сценарий, определяющий все ли элементы массива различны. 


10. Напишите сценарий, определяющий максимальную по длине неубы- 
вающую последовательность. 


11. Напишите сценарий, который объединяет два упорядоченных массива 
таким образом, что в результирующем массиве все элементы различны. 


12. Напишите сценарий, который по двум массивам строит третий, являю- 
щийся пересечением заданных. 


13. Напишите сценарий, который определяет, сколько различных чисел в 
заданном массиве. 
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14. Напишите сценарий, который для заданного массива целых чисел опре- 


деляет длину К самой длинной "пилообразной" последовательности 
идущих подряд чисел: Л»+1 < +2 > Лр+з <...> Дук. 


15. Напишите сценарий, который для заданных двух массивов Х из п эле- 
ментов и Уиз К элементов определяет, существуют ли в Х подряд иду- 
щие элементы, для которых верно Х»+1 = У, А+ = ТУ, ..., Анк= р. 


16. Задана формула вида а1?а2?...?ап, ГДе а1 — Либо истина, либо ложь. 
Вместо знака вопроса (?) может стоять либо дизъюнкция, либо конъ- 
юнкция. Напишите сценарий, определяющий все комбинации знаков, 
при которых формула получает заданное значение. | 


ЧАСТЬ 


Решение вычислительных задач 
с использованием Чауа спреи 


Глава 15. 
Глава 16. 
Глава 17. 
Глава 18. 
Глава 19. 
Глава 20. 
Глава 21. 


Процедурный тип данных и функция ера! 
Рекурсивные методы 

Метод исчерпывающего перебора 

Метод рекурсивного спуска 

Решение локальных задач 

Формулы исчисления высказываний 


Поиск доказательств 


.>- 


Глава 15 


Процедурный тип данных 
и функция ема/ 


Общие сведения 


Предположим, что нам требуется написать программу, которая определяет 
значение функции в заданной точке. График функции представлен на 
рис. 15.1. Задачи подобного типа рассматривались ранее. Можно описать 
функцию +1, которая по заданному значению х будет выдавать соответст- 
вующее значение у, например, так: 

Еопс®1оп Е] (Хх) 

{ таг у 
у=х*х*х-1 


тебагп у } 


} 


Рис. 15.1. График функции Е1 


Если использовать методы объекта Мафп, то функцию 1 можно описать 
следующим образом: 
ЕопсЕ1оп ЕТ (х) 
{ уаг у 
у=Ма*П.ром (х, 3) -1 


гебсагп у } 
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Когда аналогичную задачу требуется решить для функции, график которой 
представлен на рис. 15.2, можно описать функцию Е?: 
Еапсе1оп Е? (х) 
{ уаг у 
у=(х-1) * (х-1) +1 


тесагп у } 


Рис. 15.2. График функции Е2 


Описание функции Е2 может быть и таким: 


Еопс®1оп Е2 (Хх) 
{ уаг у 
у= МаЕВ.ром (х-1,2.) +1 


гебагп у } 


Во многих языках программирования разрешается рассматривать функции 
#1 И Е2 как процедурные константы, а в программе описать переменную 
процедурного типа, значение которой во время выполнения программы мо- 
жет меняться. Такие переменные связываются во время выполнения про- 
граммы с разными процедурами. Процедурные константы и переменные 
можно использовать в качестве фактических параметров. В нашем случае 
ситуация была бы такой: в программе описана функция, которая вычисляет 
значение в точке, определяемой пользователем. Функция, задаваемая поль- 
зователем, передается в качестве параметра. Иногда в аналогичных случаях 
говорят, что процедура или функция рассматриваются как данные. 


Идея единства данных и подпрограмм занимает одно из основных мест в 
объектно-ориентированном программировании. В языке Лауа$сире идея 
процедурных типов данных реализована с помощью функции еуа1. Функ- 
ЦИЯ еуа1 Получает в качестве параметра строку. Если строка представляет 
собой выражение языка Лауасире, то вычисляется ее значение и возвраща- 
ется как результат функции еуа1. 
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Вычисление значения 
пользовательской функции . 


Напишем программу, которая определяет значение функции, задаваемой 
пользователем, в некоторой заданной точке. 


Функция, точка и вычисленное значение указываются в текстовых полях 
формы, как показано на рис. 15.3. 


. М5 


Е Нахождение значения Функции | в заданной. точке - М!стоз. 
$ 


п 
|: 
| 


. 


Файл Правка _ ‚Вид _Иобранное_ _ Сервис _ Справка 


оным оон -к—. >. ож я ким 


Нахождение значения функции в заданной точке 


Введите функцию: Маш. пром) -ЭААхАх-7 


Аолалали коларкя делами кАед А пААА АА КА Зла Яо АА ААА -Ал Аааа -^- дл: пе дичь ко олалмоллл М ола тдд пл кал лчА 


Введите значение х: [6 


пк дли наи аль ле алла мк лаиаае ал ли а омлаелкя 


Ал уни лам АЛЬ КАРАЗАЛАЛ ДА Фе олилели ата К ела щи кл мА аи сомали дед кАк лье пали А акул ах лия дала мал кллли ПА Акула ча кал моли КолхА тля фи плече ее диана - о че 


Значение функции в заданной точке: 641 


пла лтд у За т мм Алле рать длАв м мат елчакаи в слот кл чВ ААА КА ел оли лаки сн ад т ужом иж мл хь СолА и клалььь тар слалли г лкнМеР.- Въ АЗАоуь-- А адиилл т читлалл коралл т детоа ож а член 


_ Отменить _ 


Рис. 15.3. Значение задаваемой функции в точке 


Для того чтобы определить значение функции, график которой изображен 
на рис. 15.1, достаточно задать функцию формулой х*х*х-1 или формулой 
МаЕн.ром(х,3)-1. Если же нас интересует значение в некоторой точке 
функции, график которой изображен на рис. 15.2, то надо ввести формулу 
(х-1)* (х-1)+1 ИЛИ Маёв.рем(х-1,2) +1 


Функция может иметь такой вид, что ее нельзя описать с помощью лишь 
одного выражения. Например, для того, чтобы описать функцию, график 
которой представлен на рис. 15.4, следует воспользоваться условным опера- 
тором: 
1Е (Мафр.аЪ$ (х) <1) 

{у=Ма®В.заг® (1-х*х) } 
е15е 

1Е (х <-1) {у=х+1} 

е1зе {у=х-1} 
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Для получения значения функции, график которой изображен на рис. 15.4, 
следует воспользоваться условным оператором: 


1Е (МаЕр.аЪ$ (х)<1) 
{у= х*х} 

е1 зе 
1Ё (х <-1) {у=х+2} 
е]1зе {у=1} 


Метод еуа1 может быть использован для выполнения операторов языка 
Тауа$сир включенных в строку параметра. Таким образом, при задании 
функции можно вводить не только формулу, как мы поступали ранее, но и 
операторы. Для получения значений в заданных точках функций, графики 
которых изображены на рис. 15.4 и 15.5, можно ввести в поле формы соот- 
ветствующие условные операторы. Таким образом, используя метод етуа1, 
мы получили возможность задавать в качестве исходных данных функцию, и 
тем самым решать целый класс однотипных задач. 


Ау 


Рис. 15.4. График СЛОЖНОЙ функции Рис. 15.5. График СЛОЖНОЙ функции 
(вариант 1) (вариант 2) 


Формирование таблицы значений 
пользовательской функции 


Напишем программу, которая формирует таблицу значений задаваемой 
пользователем функции. Кроме функции указывается начальное и конечное 
значение аргумента, и шаг его изменения. 


С помошью цикла вычисляется точка, значение функции в точке, и форми- 
руется строка, которая затем составит таблицу. После завершения работы 
цикла строка помещается в поле формы, предназначенное для отображения 
результата. Полностью НТМГ-код представлен в листинге 15.1. 
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‚Листинг 15.1. Построение таблицы значений функции = - о 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Построение таблицы значений функции</ТТТЬЕ> 
<$сг1ре 1апацаде="Зауа$ сг1р®"> 
<!-- // 
Еопсе1оп \а1Еапс (057 ) 
{ уаг Ез=оЪ].Еоапс.уа1ще 
уаг п=М№атрет (ор).1еЕе.уа]ае) 
уаг п=Мопрег (об) .г149.уУа1ае) 
уаг РВ=М№ипрег (оф) .Бу.уа1ае) 
уаг у 
уаг х 
уаг з="х Е (х)"+"\х\п" 
Бог (уаг 1=т1; 1<=п0; 1=1+1) 
{х=1; у=еуа1(Е$); з+=х+" "+у+"\к\п" } 
оЪ7.гез.уа]ае=$ 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОПУ Бдсо1ог="ЕВЕЗЕЕ"> 
<Н4>Построение таблицы значений функции</Н4> 
<РОВМ паще="Ёогт1"> 


<рге> 
Введите функцию: <1прие куре="фехе" $12е=20 папе="Еапс"><рг> 
Введите левый конец интервала: <1праЕ Еуре="$ехе" $12е=8 


папе="]1еЕф"><рг> 
Введите правый конец интервала: <1приё Куре="%ехе" $12е=8 папе="г19"><рг> 
Введите шаг изменения аргумента: <1праЕ суре="$ехЕ" $12е=8 папе="ру"><Вг> 
<1приЕ вуре="раефоп" уа1ае=Вычислить опС11ск="уа1Еапс (Ёога1) "><Пг> | 
Таблица значений функции: 

<сехфагеа со1$=40 гом5=10 паще="гез"></+ехфагеа><рг> 

<1праЕ Еуре="гезее" уа1]1ае=Отменить> 

</рге> 

</ЕОВМ></ВОРУ></НТМИ> 


На рис. 15.6 приведен результат выполнения сценария. 
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Е Построение таблицы значений Функции - МстозоН тег... 


—ы сх 


_ Файл. Правка. ‚Ва _ Избранное _ Сервис "Справка 


Построение таблицы значений функции 


Введите функцию: Ман.ро\(х1 0) 


кала аки кли алия лаве Ао > Амалии у о Ао едАииини У АХ ее мля АА АА о текмларь ААА АА т А Алька Алор м зотАЗА ЛА усаля падать 


Введите левый конец интервала: Го 
Введите правый конец интервала: | 0 


пили т. межд оАкАщАл те сли 2 дл ммАААе кр аик м мал пел ох лкни ЗоЗАКА ле лля лИдиленух ЛАМА ААА ЗАЛАХ ЛА АА ЗААЛАА © уеаалАААЛ о К ол Делл ВА АААЛАЛАЯ Але А олд, ные и 


Введите шаг изменения аргумента: Г 


` Вычислить. | 


{чорна ро ач ровичевь на в р чее къ ао вн фзма 6 


С Лим ААА ла Ал алелуАл А аи мн ломала а о ила. 


АА ААА р АА ЛАЗ Зла ААА ЗАК ОНА ААА АА ат пАААчАя учил» 


Таблица значений функции: 

(Хх) 

‚ О 
1 
1024 
59049 
1098575 
9765625 
60365176 
282475249 
1073741824 


_ Отменить _ | 


Рис. 15.6. Таблица значений функции, задаваемой пользователем 
в текстовом поле формы 


о пмивоюнах 


Для того чтобы получить значение функции у = 0,5 х со5(х) на интервале 
[0; 1] с шагом 0,05, следует заполнить соответствующие поля формы, при- 
чем, функцию надо задать как выражение ]ауа$спре: 0.5*Маев.соз (х). 


Определение принадлежности точки 
некоторой области 


На плоскости определяется некоторая область. Требуется написать про- 
грамму, которая для произвольной точки, заданной своими координатами, 
определяет, принадлежит ли точка области. 


Мы решали ранее подобные задачи, только описание каждой из областей 
производили, с помощью соответствующей функции. Использование метода 
еуа1 Позволит Нам написать программу, которая обрабатывает параметр, 
определяющий область плоскости. Область плоскости задается пользовате- 


$ 
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лем в качестве исходных данных. Рассмотрим варианты, изображенные на 
рис. 15.7—15.9. 


Рис. 15.7. Область Рис. 15.8. Область Рис. 15.9. Область 
плоскости Р1 плоскости Р2 плоскости РЗ 


Для заштрихованных областей на приведенных рисунках формулы, описы- 
вающие область, могут быть следующими: 

С] мась.аЪз (у)+ Мафь.аЪз (х) <=1 

О х*х+у*у<=1 

О у>= мафв.аЪз (х) 


Полностью программа приведена в листинге 15.2. 


<НТМЬ> 
<НЕАО> 

<ТТТТЕ>Принадлежит ли точка определенной области</ТТТЬЕ> 

<зсг1ре 1апачаде="Фауа$сг1ре"> 

<!-- // 

ЕопсЕ1оп Уа1Еоапс (067) 

{ уаг Ез=оЪ).Еарс.уа1щае 

уаг х=Мапрег (ою).х.уа1ае) 
уаг у=Мапфег (ор).у.уа1ае) 
уаг г=еуа1 (Ё5) 
уаг з="принадлежит области" 
1Е (!2) з= "не " +5 


ор) .ге$5.уа1ае=5 
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//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОБУ Басо1ог="ЕВЕЗЕЕ"> 
<Н4>Принадлежность точки выделенной области плоскости</Н4А> 


<ГОВМ папе="ЁЕоги1"> 


<рге> 

Введите формулу, описывающую область: <1праЕ Еуре="$ехе" $12е=40 
папе=" Еапс"><Вг> 

Введите х: <1праЕ суре="$бехе" $з17е=8 паще="х"><Вг> 

Введите у: <1приЕ фуре="$ехе" 512е=8 папе="у"><рг> 


<1праЕ суре="Баебоп" уа]ае=Вычислить опС11ск="уа1Еапс (Ёогто1) "><Вг> 
Точка с заданными координатами <1праЕ фуре="ЕехЕ" 512е=30 папе="гез"><рхг> 
<1приЕ суре="гезее" уа]ле=Отменить> 
</рге> 
</ЕОВМ> 
</ВОПУ> 
</НТМЬ> 


Вычисление корня уравнения 
методом итераций 


Напишем программу, которая определяет корень уравнения вида х = Дх) с 
начальным приближением Ги точностью ерз методом итераций. 


Мы писали ранее программу, которая вычисляла корень конкретного урав- 
нения. Напишем программу (листинг 15.3), в которой функция, представ- 
ляющая правую часть уравнения, указывается пользователем при заполне- 
нии соответствующих полей формы. Используя программу, мы можем 
задавать различные функции, изменять точность и начальные приближения, 
анализировать результат. 


Листинг 15.3. Нахождение корня уравнения видах = Кх) методом итераций 


{соо во во о оо бов о ооо ооо оо сос овочоово вов осо о в © воров оо ооо вооон чо са вис очо чо ость оао о о ооо в во оо чочоа оо са ва ооо оо оао во осоотевово сов зооооо ово осо оо оао о оо обо вово ново ово о ооо оо очо вос ооо вово З 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Нахождение корня уравнения вида х = ЁЕ(х) 
методом итераций</ТТТЬЕ> 
<5сг1ре ]1апдааае="Дауа$сг1ре"> 
<!--// 


Еопсе1оп 1$ег(оЬ)) 
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{ уаг а=аоситепе 
уаг Е5=ор].Еапс.уа1ае 
уаг &=Мопрег (ор .5У.уа1ае) 
уаг ерз=Мопрет (ор .ерзу.уа]ще) 
хаг х=Е; 
\уаг у=еха1 (Ё5) 
ир11е (Мафп.аб$(у-х) >= ерз) 
{ х=у ; у= еуа1 (Ё$) } 
ор) .гез.уа1ще= х 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОШОУ расо1ог="ЕЗЕВЗЕЕ"> 
<Н4>Нахождение корня уравнения вида х = Ё(х) методом итераций</Н4> 
<ГОЕМ пате="Ёоти1"> | 
<рге> 
Введите функцию Е(х): <1приЕ суре="$ехе" $12е=20 папе="Еапс"><Вг> 
Введите начальное приближение: <1прие $уре="{ехе" $17е=8 папе="Еу"><Пг> 
Введите требуемую точность: <1праЕ вуре="%ехе" $12е=8 папе="ерзу"><Вг> 
<1приЕ фуре="раефоп" уа1ае=Вычислить опС]11ск="1фехг (Еогт1) "><Ву> 
Корень уравнения равен: <1приб суре="6ех®" $1хе=20 папе="гез"><Вг> 
<1приЕ суре="гезее" уа1ае=Отменить> 
</рге></ЕОВМ></ВОРУ></НТМГ> 


Вычисление корня уравнения методом 
деления отрезка пополам 


Напишите программу, которая находит корень уравнения вида Хх) = 0 ме- 
тодом деления отрезка пополам с заданной точностью ерз. 


Нас интересует интервал [а, 5], на котором функция непрерывна и моно- 
тонна и на концах интервала принимает значения разных знаков. Тогда на 
этом интервале функция имеет ровно один корень и его можно приблизи- 
тельно определить следующим образом. Разделить интервал [а, 6] на две 
части точкой т = (а + Б) / 2 и вычислить значение т). После этого из двух 
получавшихся интервалов [а, т] и [т, 6] рассматривать тот, на концах кото- 
рого функция принимает значения разных знаков, именно он содержит ко- 
рень. Продолжить процесс поиска корня для вновь образованного интерва-. 
ла. Процесс будет закончен, когда длина очередного интервала станет мень- 
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ше значения ер5. Следовательно, любая точка интервала будет представлять 
значение корня с точностью ер5. 
Напишем сценарий, который для уравнения вида Кх) = 0 находит корень с 


точностью еру методом деления отрезка пополам. При этом пользователь 
должен задать функцию, точность и границы интервала (листинг 15.4). 


| Листинг 15.4. Метод деления отрезка пополам “о 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Метод деления отрезка пополам</ТТТЬЕ> 
<5сг1ре 1апацаде="Фауа$ сг1р®е"> 
<!--// 
ЕорсЕ1оп Б1пкоое (051) 
{ уаг Ез=ор).Еапс.уа1ае 
уаг а=Матрет (ор) .1еЕе.ха]1ае) 
уаг Б=Мопфег (об .г1апе.уа1ще) 
уаг ерз=№ифет (об) .ерзу.уа]1щае) 
уаг х=а 
уаг Га = еуа1 (Ё5) 
х=р 
уаг Ер = еуа1 (Ё5$) 
уаг Ес 
уаг с 
1Е (РЕа*ЕБ < 0) 
{ мр11е (МаЕр.аЪз$(Ь-а) >= ерз) 
{ с= (а+Ъ) /2; 
х=с; Ес= еуа1 (Ё$) 
1Е (Еа*Ес < 0) 
{р=с; ЕБ= Ес } 
е1зе 
{а=с; Еа=ЕЁс } 
} 
оБ-.гез.уа1ае= (а+р) /2 
х= (а+Ъ)/2 
уаг Ее5 = еуа1 (Е5$) 
ор) .Еезе.уа1ае= +е$ 
} 


е1з5е Чоситепе.мхг1Ее ("на концах отрезка значения одного знака") 
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//--> 
</зсг1ре> 
</НЕАО> 
<ВОБУ расо1ог="ЕВЕВЕЕ"> 
<Н4> Метод деления отрезка пополам</Н4> 
<ГОВМ пате="Еогт0"> 
<рге> 
Введите функцию: <1праЕ фуре="бехе" 3з17е=30 паще="Еапс"><Вх> 
Введите левый конец отрезка: <1приёе Еуре="бехе" 51хе=10 папе="1еЕ*"><Вг> 
Введите правый конец отрезка: <1приё (уре="$ехе" $17е=10 паще="к1аве"><Вг> 
Задайте требуемую точность: <1праЕ Еуре="6ехе" $12е=10 папе="ерзу"><Вг> 
<1праЕ суре="БаЕеоп" уа1ае=Вычислить опС11ск="р1пкооф (Еоа0) ">< г> 
Корень уравнения равен: <1прие куре="{ехе" $17хе=30 паме="гез"><Вхг> 
Тест: <1прие буре="ех®" $12е=30 папе="+езе"><Вх> 
<1прие фуре="гезее" уа]ие=Отменить> 
</рге> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


29 Метод д деления : отрезка! пополам - Мистозой Иегпе! Ежроге, 


| Файл Правка _ „Во "Избранное `СЕрвис "Справка. 


ко д лилии чили аа залляло поле книли ки ци виллуклт и А ИВАНО ААА 


Умет од деления отрезка пополам 


Введите функцию: Май. р ом 4) + 2=М аи. р О\%%(х, 3)-2 


ле Аи А р И м р я и ддт 


Введите левый конец отрезка: 


елка т алилле ма от чаллаадли ре по Кол Аль ну клал чл ла роль Камал Кл лилищечьди ль Яд Чаедлеи ль лл фи, о АЛЛА лад лу ® ралли алдльщкл таре а зал ол к АЛАН дл ААА М Влас Аллы Мена лол печь лучи - А. 


Введите правый конец отрезка: Г 


о аул ами ии тер одет А д лире русь ут ль ол деть р и рек оли ле дуанириь круть УИ лее ле т ть чин. 


Задайте требуемую точность: [0.001 


Корень уравнения равен: [68 99525390625 


Тест: 0664747489846 


ео ааа занам А А алом ии асе 


Отменить. ^ 


Рис. 15.10. Поиск корня уравнения методом половинного деления 
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Для того чтобы найти корень уравнения у = х4 — 3х + 1 с точностью 0,001 мож- 
но взять интервал [0, 1], т. к. на концах этого интервала функция принимает 
значения разных знаков. Результат работы сценария приведен на рис. 15.10. 


Вычисление интеграла 


Напишите программу, которая приближенно вычисляет интеграл 
р 
| годах. 
[#1 


Приближенное значение интеграла можно получить, если на промежугке [а, 6] 
функцию / заменить кусочно-линейной функцией, т. е. превратить задачу о 
вычислении площади криволинейной трапеции в задачу вычисления пло- 
щадей прямолинейных трапеций. Чем больше количество элементарных от- 
резков, тем более точные вычисления. Разобьем отрезок [а, 6] на равные 
промежутки а = ж, х|, ..., х, = 6. Площадь трапеции, на отрезке [х;-1, Х/ оп- 
ределяется формулой | 


Ло) + Ло) 


5 х (х;-х,|). 


Если интервал [а, 6] разбит на равные промежутки, то длина такого проме- 
жутка равна р = (6 — а)/п, а точки определяются по формуле х/ = а+ [х й. 
Формула приближенного вычисления интеграла аналогично формуле трапе- 
ций может быть записана так: 


р п-] 
| Года» А+ У Иххи. 
а [=] 


Задачу будем решать следующим образом. Интеграл вычислять по формуле 
трапеций, последовательно уменышая шаг в два раза, пока последние вычис- 
ленные приближения интеграла не станут меньше чем заданное значение ерх. 
Кроме того, значение подынтегральной функции в каждой точке будем вы- 
числять лишь один раз. Пусть рассматриваемым отрезком будет интервал 
[0, 1], а первоначальное разбиение п = 10. Значения подынтегральной функ- 


9 
ции должны быть подсчитаны в точках: — 101010 . При следующем раз- 
биении п = 20, значения функции должны считаться в точках: 


123 1819 
20’20’20’””20’20' 
функции уже считались на предыдущем шаге. Поэтому программу следует 
[3 19 


составить так, чтобы функция вычислялась лишь в точках 20’ 20” "70° 


. Для некоторых значений в этом интервале значения 
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В функции 1пеедга1 использованы следующие переменные. В переменной 
Ез хранится подынтегральная функция, которую задает пользователь, запол- 
няя поля предложенной формы. Переменные а и Ь служат для задания про- 
межутка интегрирования. Переменная п задает начальное разбиение. Для 
хранения двух последовательных приближений предназначены переменные 
11 И 12. Напишем программу решения задачи (листинг 15.5). 


фосохосо ооо сочовосо ооо ое оо оо ово чо чо ооо ото ооо ооо оо во соо ооо соо в ооо ооо о оо оо ооо ооо ооо ново от ооо оо ночное но оо ооо о чо чо сес ос осо осо соо о о ооо ооо вос ово вос ово носчочоовссновво З 
. ® 


Листинг 15.5. Вычисление значения интеграла по формуле трапеций 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Вычисление значения интеграла по формуле трапеций</ТТТЬЕ> 
<$сг1ре 1апацаде="Зауа$стг1р®"> 
<!-- // 
Еопрс$1оп 1п6едга1 (оЪ]) 
{ уаг а=аослтепе 
уаг Е$=ор].Еапс.уа1ае 
уаг а=Матфет (ор .1еЕф.уа]ае) 
уаг Ю=Митфрег (оЬ} .г1а9й®.уа1ое) 
ах п=№Мотрех (05) .пу.уа14е) 
уаг ерз=М№апьех (05) .ерзу.уа1ае) 
уаг 11; уаг 12; уаг В; таг $3; уаг 1 
уах Есих 
х=а 
уаг ГЕа=еха1(Ё$). 
х= 
уаг ЕЮ=ета1 (Е5) 
5= (Еа+ЕБ) /2; П=(Ь-а) /п 
Рог (1=1; 1<= п-1; 1 = 1+1) 
{х=а+1*) ; Есиг=еуа1(ЁЕ5); $=5+Есиг} 
11=$*[Р 
п=п*2; В=Б/2 
Бог (1=1; 1<= п-1; 1 = 1+2) 
{х=а+1*0; Есаг=еха]1 (Ё5); $=$5+Есцх} 
12=5*В | 
имр11е (Маер.аЪз$ (11-12) >= ерз$) 
{11=12; 
п=п*2; п=Б/2 


Бог (1=1; 1<= п-1; 1 = 1+2) 
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—————————АаА33=—————и—————г—А——/С/——————ЫДЫы—ы———ЫЫЫЫДЫЫ—Ы———ы——- 


{х=а+1*[; Есаг= еута1(ЁЕ$); $=5+Есаг} 
12=$5*0 
} 
оЬ].хез.уа1пе=12 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ Басо1ог="ЕЗЕВЕЕ"> 
<Н4>Численное интегрирование. 
Вычисление интеграла методом трапеций</Н4> 
<РГОВМ паме="Ёотт0"> 
<рге> 


Введите подынтегральную функцию: <1приЕ буре="фехе" $12е=20 
паме=" Еопс"><рг> | 


Введите левый конец промежутка интегрирования: <1прие уре="Еехе" $12е=8 
паме="]1еЕе"><Вг> 


Введите правый конец промежутка интегрирования: <1праЕ фуре="®ехе" 3127е=8 
паме="у1а1е"><Вг> 


Задайте начальное разбиение: <1праё туре="кехе" $12е=12 
папе="пу"><пг> 


Задайте требуемую точность: <1праЕ суре="кехе" $12е=12 
папе="ерзу"><Вг> 


<1приё суре="раефоп" уа1ае=Вычислить опС11ск="1п$едга1 (Еогла0) "><Вг> 


Значение интеграла равно: <1прае Еуре="$ех®" $12е=20 
папе="гез"><Вх> 


<1праЕ Еуре="гезеф" уа]ле=Отменить> 
</рге> 
</ЕОВМ></ВОРУ></НТМГ> 


Определение типа выравнивания 
изображения 


Напишите программу, которая позволяет определить действие параметра 
а11ап при вставке изображения в строку. Пользователь выбирает интере- 
сующий параметр, и в правой части появляется описание действий при вы- 
бранном параметре, как на рис. 15.11. 


При выборе значения параметра выравнивания изображения возникает со- 
бытие госаз, реакцией на которое является вызов ФУНКЦИИ зе*+. Второй па- 
раметр функции зек применяется при формировании имени строковой пе- 
ременной, значение которой помещается в соответствующее поле формы. 
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Е Распояожение изображения относительно строки - МестозоН рпегте ЕхрГоге! | 


тетя а тя тдиимя Бе же Чат ми ми < мля а таит очеладааы 4 


_ Файл. Правка ‚Вых. _ Избранное Серое ‚Справка 


жена. пни ме пене лен —^ пи аа ее ал ко с лен члене, 


Расположение изображения относительно строки 


Выберите значение параметра, который Вас интересует 


4 


А и Аи и демуилуклх поили уу =. к щ—. о Аы 


Знач ения параметра Действия при ‘выбранном значении 
выравнивания АТОМ зараметра: 
| 


Выравнивание середины изображения 
посередине текущей строки 


р 
1 
| 
|5 
| 
| 


[Е г ВОТТОМ или ВАЗЕГЛМЕ 
ГС АВЗВОТТОМ 


МИ чек ия онл ни лаб рььнотьф оеумй Мкрн рындсчакьлллль Хоюкькьк ни фор чет фот течь трибы мои ды одолели ломит оч опр Ч, Флирт пло лак 


| Обновить | 


пре ое еезядек олалком ель полалилижьлоа тыл. один бодр виотеа 1 лулкдяеи оао о аелльу из аедане нккои, о лололажльые дллллаижль ВАА оны оли ме мя кодам лье о тие твои идалль те луж © яна мых 


НИ 
#2] Готово °- 


Рис. 15.11. Значения параметров горизонтального выравнивания изображения 


ЕипсЕ1оп 5е%6(о5),1) 


{ор).гез.уа1ае=еуа1 ("$"+1) } 


Если написать конструкцию 


ор] .гез.уа1це="$"+1 


то в зависимости от значения 1 будет выведена строка °0, $1, ...., 5. Полно- 
стью НТМГ-код приведен в листинге 15.6. 


Листинг 15.6. Объяснение действия при выбранном значении параметра 


<НТМТ> 
<НЕАО> 
<ТТТЬЕ>Расположение изображения относительно строки</ТТТЬЕ> 
<$сг1ре> 
<!-- 
уаг з0="Верхняя граница изображения выравнивается"+ 
"по самому высокому элементу текущей строки" 
уаг 51="Верхняя граница изображения выравнивается "+ 


"по самому высокому текстовому элементу текущей строки" 
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уаг $2="Выравнивание середины изображения по базовой линии "+ 
"текущей строки" | 
уаг 53="Выравнивание середины изображения посередине "+ 
"текущей строки" 
уаг $4="Выравнивание нижней границы изображения "+ 
"по базовой линии текущей строки" 
уаг з5="Выравнивание нижней границы изображения "+ 
"по нижней границе текущей строки" 
Еопсе1оп зеф(о5),1) 
{ ор) .ге5.уа1ае=еуа1 ("$"+1) } 
//--> 
</зсх1рЕ> 
</НЕАО> 
<ВОРУ Басо1отг="ЕЗВЕЗЕЕ"> 
<НЗ а119п=сепег>Расположение изображения относительно строки</НЗ> 
Выберите значение параметра, который Вас интересует 
<ЕОВМ папме="Ёоги1"> 
<ТАВЬЕ Богаег=2> 
<ТВ><Тр><р4>Значения параметра выравнивания АЦТСМ</В4> 
<Тр><в4>Действия при выбранном значении параметра: </14> 
</ТВ> 
<ТВ><Тр> 
_<1приЕ фуре="гаа1о" паце=Аа" уа]1ае=0 
опРоси$="зеф (Еога1,0)">ТОР <Бх> 
<1приЕ вуре="гаЧ1о" паме="м" уа1ае=1 
опЕоса$="зеф (Еоут1, 1) ">ТЕХТТОР<Ьг> 
<1праЕ суре="гаЯ1о" паме="т" уа1лае=2. 
опЕоси$="зеф (ЁЕог1, 2) ">МТООЦЕ<Ьг> 
<1приЕ $уре="гаа1о" паще="и" уа1ае=3 
опЕоси$5="5еф (Ёогта1, 3) ">АВЗМТООТЕ<Б е> 
<1прие вуре="гаЧ1о" паме="т" уа1це=4 
опЕосиз="5е+ (Еоги1, 4) ">ВОТТОМ или ВАЗЕГТМЕ<Ьг> 
<1приЕ $уре="гаЯ1о" папе="щ" уа1]ае=5 
опЕси$="зеф (Ёогт1, 5) ">АВЗВОТТОМ<«Ьг></ТО> 
<ТОЬ><Еехбагеа папе="гез" со1$=40 гомз=4> 
</ЕехЕагеа><Ьг></ТО></ТВ></ТАВЬЕ><ЬБг> 
<1приЕ Еуре="гезее" уа1ае="Обновить"> 
</ЕОВМ></ВОрУ></НТМЬ> 
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Упражнения 


1. 


Напишите сценарий с функцией, которая определяет приближенное зна- 
чение корня уравнения Хх) = 0 методом хорд с точностью ерё. Найдите 
корни уравнения е\ + х - 2 = 0 на промежутке [0, 1] с точностью 10-4. 


Напишите сценарий с функцией, определяющей корень уравнения Хх) = 0 
на промежутке [а, 5] с заданным начальным приближением хо методом 
Ньютона. Найдите с помощью описанной функции корни уравнения 
{2х — рхх = 0 на промежутке [0; 3/2] для р = 1,4(0,2)2,1, ж = 1,5. 


Напишите сценарий с функцией, приближенно вычисляющей интеграл 
по формуле прямоугольников: 


Ь 
[ Годах = вх [бы + Лео) + + Лбе,)], 


где й = (р - а/п, х=а-+тх И — 1/2 при заданном значении п. Подын- 
тегральную функцию, промежуток и разбиение пользователь должен за- 
давать с помошью формы. 


Напишите сценарий, который дает возможность пользователю выбрать 
график, для которого требуется определить значение функции при задан- 
ном значении аргумента. В сценарии следует предусмотреть проверку 
правильности написанного фрагмента для заданного графика. После вы- 
полнения всей работы (просмотра всех графиков) пользователю выстав- 
ляется оценка. | 


Напишите сценарий, который дает возможность пользователю выбрать 
рисунок из набора заданных изображений. Пользователю для каждого из 
рисунков требуется написать фрагмент программы, определяющий, при- 
надлежит ли точка с заданными координатами заштрихованной области. 
В сценарии предусмотреть проверку правильности написанного фрагмен- 
та для заданного графика. После выполнения работы (просмотра всех 
изображений) пользователю выставляется оценка. 


Напишите сценарий, согласно которому пользователь выполняет зада- 
ние, а затем ему выставляется оценка. Задание таково: напишите выра- 
жение, которое выдает значение функции при заданном значении аргу- 
мента. Пользователь выбирает график, вводит выражение, нажимает на 
кнопку Готово, выбирает следующий график и т. д., пока не будут вы- 
полнены все задания. На выполнение всего задания отводится опреде- 
ленное время. После окончания работы выставляется оценка. 


Напишите сценарий, в результате выполнения которого выбирается зада- 
ние из предложенного списка, затем пользователь вводит выражение, 
удовлетворяющее условию задания и т. д., пока не будут выполнены все 
задания. На выполнение всего задания отводится определенное время. 


12 Зак. 834 
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После окончания работы выставляется оценка. При выполнении каждого 
задания требуется написать выражение, истинное тогда и только тогда, 
когда выполняется одно из следующих условий: 


хотя бы одна из переменных а, В, с имеет значение Еа15е; 

» ровно одна из переменных а, В, с имеет значение Еа1зе; 

е ровно две переменные из переменных а, В, с, имеют значение Еа1зе; 
е все переменные а, 5, с имеют одинаковое значение; 

® НИ ОДНа из логических переменных а, 6, с не истинна; 


8. Напишите сценарий, в результате выполнения которого выбирается зада- 
ние из предложенного списка, затем пользователь вводит выражение, 
удовлетворяющее условию задания, и т. д., пока не будут выполнены все 
задания. На выполнение всего задания отводится определенное время. 
После окончания работы ставится оценка. При выполнении каждого за- 
дания требуется написать выражение, истинное тогда и только тогда, 
когда выполняется одно из следующих условий: 


е остаток от деления целого числа пя на 7 равен либо 3, либо 7; 

» Два числа нечетны и разность между ними равна 2; 

е сумма цифр заданного трехзначного числа п совпадает с самим числом; 
е заданное четырехзначное число и является палиндромом; 

» заданное трехзначное число п является числом Армстронга; 

® первая и последняя цифра четырехзначного числа и совпадают; 


е максимальная цифра четырехзначного числа п делится на минималь- 
ную цифру без остатка. 


9. Напишите сценарий, в результате выполнения которого выбирается зада- 
ние из предложенного списка, затем пользователь вводит выражение, 
удовлетворяющее условию задания, и т. д., пока не будут выполнены все 
задания. На выполнение всего задания отводится определенное время. 
После окончания работы ставится оценка. При выполнении каждого за- 
дания требуется написать выражение, истинное тогда и только тогда, 
когда выполняется одно из следующих условий: 


е последовательность из пяти чисел а, В, с, а, е образует арифметиче- 
скую прогрессию; 


» пять чисел образуют возрастающую последовательность; 

» пять чисел образуют строго возрастающую последовательность; 
е ПЯТЬ ЧИСсел образуют строго убывающую последовательность; 

» пять чисел образуют возрастающую последовательность; 

» в последовательности есть два одинаковых числа; 
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е В ПосСлЛедовательности три одинаковых числа, 
е В Последовательности нет одинаковых чисел, 
е В Последовательности два равных числа расположены рядом. 


10. Напишите сценарий, в результате выполнения которого выбирается за- 


11. 


дание из предложенного списка, затем пользователь вводит выражение, 
удовлетворяющее условию задания, и т. д., пока не будут выполнены все 
задания. На выполнение всего задания отводится определенное время. 
После окончания работы ставится оценка. При выполнении каждого за- 
дания требуется написать выражение, истинное тогда и только тогда, 
когда выполняется одно из следующих условий: 


» В Последовательности из четырех чисел а, 6, с, 4 только одно макси- 
мальное число; 


е В Последовательности из четырех чисел а, р, С, 4 чисел ровно два мак- 
симальных числа, 


е В последовательности из четырех чисел а, р, С, 4 максимальное число 
совпадает с квадратом минимального числа, 


е В последовательности из четырех чисел а, р, С, а первое минимальное 
число стоит на нечетном месте, 


» в последовательности из четырех чисел а, В, с, 4 максимальное число 
и минимальное число идут подряд; 


» значение а является наибольшим из четырех попарно различных зна- 
чений а, В, с, &; 


»е разность между максимальным и минимальным числом является 
числом, кратным 7. 


Напишите сценарий, в результате выполнения которого выбирается за- 
дание из предложенного списка, затем пользователь вводит выражение, 
удовлетворяющее условию задания, и т. д., пока не будут выполнены все 
задания. На выполнение всего задания отводится определенное время. 
После окончания работы ставится оценка. При выполнении каждого за- 
дания требуется написать выражение, истинное тогда и только тогда, 
когда выполняется одно из следующих условий: 


е последовательность из пяти символов а, В, с, а, е является идентифи- 
катором; 


»е последовательность из пяти символов а, В, с, 4, е является палиндромом; 


»е в Ппоследовательности из пяти символов а, 6, с, а, е есть одинаковые 
буквы; 


» в Последовательности из пяти символов а, 6, с, 4, е все буквы различны; 


» буквы расположены в алфавитном порядке в последовательности из 
пяти букв; 
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» в Последовательности символов а, 6, с, 4, еесть хотя бы одна цифра; 
» в Последовательности а, 6, с, 4, еесть две цифры, стоящие рядом; 


е последовательность а, 6, с, 4, е представляет целое число, которое 
при делении на 7 дает в остатке 5; 


е последовательность а, 6, с, 4, е представляет целое число, кратное 3; 
е в последовательности а, 6, с, а, еесть ровно три буквы; 
е последовательность а, 6, с, 4, е представляет целое число, кратное 9. 


Напишите сценарий, в результате выполнения которого выбирается за- 
дание из предложенного списка, затем пользователь вводит выражение, 
удовлетворяющее условию задания, и т. д., пока не будут выполнены все 
задания. На выполнение всего задания отводится определенное время. 
После выполнения работы ставится оценка. В заданиях, предлагаемых 
для тестирования, приняты следующие соглашения. Четыре числа трак- 
туются как оценки за сессию. Требуется написать выражение, истинное 
тогда и только тогда, когда: 


® все экзамены сданы на 5; 

е экзамены сданы на оценки 4 и 5, но не на все пятерки; 

е имеется хотя бы одна тройка, но нет двоек; 

» имеется хотя бы одна двойка; 

е средний балл за все экзамены в пределах 3,5 и 4,5; 

® сумма баллов за сессию либо меньше 3,5, либо более 4,75; 
» среди оценок нет одинаковых; 

е ровно две четверки; 

е ровно три тройки. 


Напишите сценарий, в результате выполнения которого выбирается за- 
дание из предложенного списка, затем пользователь вводит выражение, 
удовлетворяющее условию задания, и т. д., пока не будут выполнены все 
задания. На выполнение всего задания отводится определенное время. 
После окончания работы ставится оценка. В заданиях, предлагаемых для 
тестирования, предполагается выполнение следующих условий. Три 
числа а, 5, с трактуются как длины сторон. Определите: 


е МОЖНО ЛИ ПОСТРроить Треугольник с заданными длинами сторон, 
е является Ли треугольник равносторонним, 


е Является Ли треугольник равнобедренным; является Ли треугольник 
разносторонним, 


е Является Ли треугольник прямоугольным, является ли треугольник 
остроугольным, является ли треугольник тупоугольным. 


Глава 16 


Рекурсивные 
методы 


При создании программы для решения сложной задачи программист обыч- 
но разбивает ее на подзадачи, чтобы для каждой такой подзадачи написать 
подпрограмму, а затем объединить все написанные подпрограммы в про- 
грамму. Если подзадача достаточно сложная, то для решения может оказать- 
ся полезным разбить ее еще на более мелкие подзадачи и программировать 
каждую из них отдельно и т. д. Часто бывает, что в процессе такого разбие- 
ния задача сводится к самой себе. Если при этом исходные данные стано- 
вятся проще, то этот процесс можно продолжать до тех пор, пока исходные 
данные не окажутся настолько простыми, что решение задачи для них ста- 
нет тривиальным. Приведем примеры, демонстрирующие такой принцип 
решения. 


Перевод десятичного натурального 
числа в двоичное 


Напишем сценарий, который для любого натурального числа строит его 
двоичное представление. 


Опишем функцию гесь1п, которая получает в качестве параметра целое по- 
ложительное число п, и формирует строку, являющуюся двоичным пред- 
ставлением п. Эту задачу можно свести к самой себе. Если в двоичном пред- 
ставлении п содержится к>0 двоичных цифр, то первые к-1 цифр 
представляют число, являющееся частным от деления п на 2, а последнюю 
цифру легко узнать, проверив четность числа п. Если к=1, ТО п=1, ТО и ДВО- 
ичное представление п равно 1, и этот случай рассмотрим отдельно. В теле 
функции гесь1т есть обращение к ней самой, но с другими, более просты- 
ми параметрами. При каждом вызове функции значение параметра умень- 
шается, поэтому наступит момент, когда параметр станет равным 1 и реше- 
ние задачи будет тривиальным. 


НТМЕ-код приведен в листинге 16.1. 
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“Листинг 16. 1. `Рекурсивные методы. Двоичное представление. числа. | 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Рекурсивные методы. Двоичное представление числа</ТТТЬЕ> 


<5сг1рЕ 1апачаде="Зауа$ ск1ре"> 


<!-- 
Еопс®1оп гесЬ1лт (п) 
{ хаг $ 
1Е (п==1) $="1" 
е]1 зе 
{ э=гесЬ1т ( (п-0%$2) /2) 
$+=10$2 
} 
тесагп 5 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОрУ> 


<Н4>Рекурсивные методы. Двоичное представление числа</Н4> 
<ГОВМ паще="Еогт1"> 
<рге> 
Введите натуральное число: <1приё буре="$ехе" $12е=12 паме="пам"> 
Двоичное представление: <1праЕ Еуре="Еехе" $17хе=12 паме="гез"> 
</рге> | 
<1праЕ Еуре="Баееоп" уа1ае=Выполнить 
опС11ск=" 015$. Еотта. гез .уа1ае=гесЬ1п (Мипег (1615. Еоги. пом. уа1ае) ) "> 
<1праЕ суре="гезее" уа]ае=Отменить> 
</ЕОКМ> 
</ВОрУ> 
</НТМГ> 


Вычисление факториала 
рекурсивным методом 


Напишем программу, которая по любому натуральному п вычисляет п! так, 
как показано на рис. 16.1. 
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Рекурсивные методы. Вычисление факториала 


Введите натуральное число: [4 


ох печь ль лол литдьль ль аль ах ем помним пои прод, турков лье, мольль о лотлечодьмдьл ово 2 


Значение факториала равно: [67178291200 


ыеПелНить..] ‚_бненить В 


Рис. 16.1. Факториал натурального числа 


Мы уже решали подобную задачу при демонстрации итеративных методов. 
Опишем рекурсивную функцию вычисления факториала. В функции один 
параметр — натуральное число я. Тривиальный случай — это вычисление 
значения 1!. Заметим, что верно следующее соотношение и! = их (п -— 1)!, 
поэтому можно свести задачу вычисления п! к решению той же задачи, но с 
другим, более "простым" параметром. 


НТМЕ-код представлен в листинге 16.2. 
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“Листинг 46. 2. Рекурсивные: методы. Вычисление ъ‘факториала’ 


<НТМЬ> 
<НЕАО> 
‘<ТТТЬЕ>Рекурсивные методы. Вычисление факториала</ТТТТЕ> 
<5сг1ре 1апацаде="Зауа$сг1р®"> 
<!-- // 
ЕопсЕ1оп Еас® (п) 
{ уаг Е=1 
1ЁЕ (п==1) Е=1 
е1зе Е=п*Еас® (п-1) 
гебагп Е 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОрУ> 
<Н4>Рекурсивные методы. Вычисление факториала</Н4> 
<ЕОЁКМ папе="ЁЕогт1"> 
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<рге> 
Введите натуральное число: <1прае Еуре="$ехе" $12е=20 пате="пим"><Втг> 
Значение факториала равно: <1прае суре="$ехе" 517е=20 пате="гез"><Вг> 
</рге> 

<1праЕ Еуре="БаЕкоп" уа1ае=Выполнить 

опС11ск="{ 015$. Еогт. гез.уа1ае=Ёас% (01$. ЁЕохт. пим. уа1ае) "> 
<1приЕ суре="гезее" уа]ае=Отменить> 
</ЕОВМ> 

</вВору> 

</НТМГ> 


Пусть п=з. Как будет выполняться вызов асе (п)? На рис. 16.2 представлена 
схема выполнения вызова функции. Стрелки указывают порядок вычисле- 
ния. Сначала происходит движение по стрелкам вниз, указывающее на то, 
что происходит временное прерывание выполнения текущего вызова, и пе- 
реход к выполнению вызова более низкого уровня, пока не будет получен 
тривиальный случай. Затем происходит подъем вверх, что означает возоб- 
новление прерванных вызовов. Первым возобновится выполнение такого 
вызова, который был прерван последним. 


Рис. 16.2. Схема выполнения вызова рекурсивной функции 


Определение чисел Фибоначчи 
рекурсивным методом 


Напишем рекурсивную функцию, определяющую число Фибоначчи с номе- 
ром и. По определению последовательности чисел Фибоначчи: 


О л=лЛ=Г; 
В = 1+Л-2 приГ>2. 
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Можно написать функцию, основываясь на только что приведенном опре- 
делении: 


Еопс®1оп Ё1Ь(р,5,п) 
{ уаг г 
1ЁЕ (п<=0) 
{х=5} 
е15е 
{х=Е1Ь(п-1) + Е1(п-2)} 


гебсагп г 


} 


В теле рекурсивной функции Е1ь есть два обрашения к ней самой с пара- 
метром п-1 и п-2. При вычислении Е1ь(п-1) будет вычисляться Е1ь(п-2), а 
затем значение это будет "забыто" и вычисляться заново при следующем ре- 
курсивном вызове. 


Для того чтобы избежать многих повторных вызовов используют прием, ко- 
торый получил название "накапливаемые" параметры. В рекурсивной функ- 
ЦИИ гесЕзь три параметра: два последних определенных числа Фибоначчи и 
номер того числа, которое нас интересует. В теле функции вызов 
гесЕ1Ъ (з3,5+р,п-1) означает переход к следующей паре полученных чисел 
Фибоначчи (параметры $ и $+р), и тот факт, что номер искомого числа от- 
носительно найденных уменьшился на 1. 
Еапс® топ хесЕ1Ь (р, 5$,п) 
{ уаг г 
1ЁЕ (п <=0) {г=$} 
е1зе 
{ г=гесЕ1Ь(5$,5+р,п-1) } 


гебагп г 


} 


Для того чтобы найти число Фибоначчи л с помощью функции гесЕзЪ, надо 
ВЫПОЛНИТЬ ВЫЗОВ гесЕ1ю(1,1,п-1). Приведем полностью программу реше- 
ния задачи (листинг 16.3). 
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<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Рекурсивные методы. Числа Фибоначчи</ТТТЬЕ> 
<зсг1р® 1апдааде="Тауа$ сг1ре"> 
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<!-- 
Ропсе1оп гесЕ1Ь(р,5,п) 
{ таг г 
1Е (п <=0) {т=з3} 
е15е 
{ г=гесЕ1Ь ($,$+р,п-1) } 
гебагп г 
} 
//--> 
</$сг1рЕ> 
</НЕАР> 
<ВОрУ> 
<Н4>Рекурсивные методы. Числа Фибоначчи</Н4> 
<ЕРЕОЕКМ паме="Еоги1"> 
<рге> 
Введите номер числа: <1приЕ вуре="вехе" $12е=8 пате="пиш"> 


Число в последовательности Фибоначчи: <1прае буре="вехЕ" з1хе=8 
папе="кез"> 


</рге> 
<Вг> 
<1праЕ суре="раЕЕоп" уа]ае=Выполнить 
опС11ск="{61$.Еохм. гез.уа]ае=гесЁ1 (1,1, 
Мипрехт (1015$. Еогтм. пом. уа1ае-1))"> 
<1приф вуре="гезее" уа]де=Отменить> 
</ЕОВМ> 
</ворУу> 
</НТМЬ> 


Вычисление наибольшего 
общего делителя 


Напишем программу, которая для двух заданных натуральных чисел опреде- 
ляет их наибольший общий делитель. 


Рекурсивная функция поа имеет два параметра — числа п И п. Будем счи- 
тать, что п>ю. Если это не так, то параметры можно поменять местами. Если 
п=0, То задача решена, наибольший общий делитель совпадает со значением 
п. Сведение задачи к подзадаче основано на следующем соотношении: 


поа (п,м)=поа (м, п$м) 
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Первый и второй параметры уменьшаются при каждом рекурсивном вызове, 
поэтому наступит момент, когда значение второго параметра станет равным о. 
Полностью текст программы приведен в листинге 16.4. 


(Листинг 46. 4. Рекурсивные методы. Вычисление наибольшего — 
общего. делителя | о | | 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Рекурсивные методы. 
Вычисление наибольшего общего делителя</ТТТЬЕ> 
<$сг1рЕ 1апопаде="Зауа5ст1ре"> 
<!-- // 
Ропс&1оп поа (п, п) 
{ таг г 
1Е (п==0) г=п 
е1зе г = поа (м, п$м) 
тебагп г | 
} 
//=-> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
<Н4>Рекурсивные методы. Вычисление наибольшего общего делителя</Н4> 
<РГОКМ патме="ЁЕотгт1 "> 
<рге> 
Число1: <1прие буре="Еехе" 512е=10 папе="па1"><Вг> 
Число2: <1праёе Еуре="вехе" $12е=10 паще="пата"><ртг> 
Наибольший общий делитель: <1праЕ суре="%ехе" $512е=10 папе="гез"> 
</рге><пг> 
<1приЕ куре="Баееоп" уа1ае=Выполнить 
опС11ск="6615$.Еогм. гез.уа]це=поа (%515.Еогт. пам] .уа1ае, 
$61$.Еога.пим2.уа1ое) "> 
<1приЕ суре="гезее" уа1]ае=Отменить> 
</ЕОВМ> 
</ВОРУ> 
</НТМГ> 
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Вычисление корня уравнения 
методом половинного деления 
с помощью рекурсии 


Напишем рекурсивную процедуру поиска корня уравнения вида Хх) = 0 на 
промежутке [а, 56| методом деления отрезка пополам. 


Предположим, что функция на отрезке [а, 6] непрерывна и монотонна и 
принимает на концах отрезка значения разных знаков. 


Рекурсивная функция Еь:1п зависит от трех параметров а, В и ер5. Тривиаль- 
ный случай состоит в том, что длина исследуемого отрезка меньше задан- 
ного значения еру. В этом случае любую точку отрезка можно принимать за 
приближенное значение корня. Если длина исследуемого участка более ерз, 
то находится середина отрезка с и вычисляется значение функции Дс). 
В зависимости от значения Кс) продолжать поиск корня следует либо в 
промежутке [а, с|, либо в [с, 6]. Если на концах промежутка [а, с| значения 
функции противоположных знаков, то поиск корня осуществляется на этом 
промежутке с помошью рекурсивного вызова Еб1п(а,с,ерз), В противном 
случае нахождение корня обеспечит вызов ЕЪ{пт (а, с,ерз). 


В листинге 16.5 описана функция Е+ез+, которая осуществляет дополни- 
тельную проверку, вычисляя значения функции в найденной точке. 


Листинг 16.5. Рекурсивные методы. Метод деления отрезка пополам = 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Рекурсивные методы. Метод деления отрезка пополам</ТТТЬЕ> 
<$сг1рЕ 1апацаде="Уауа$сг1р®"> 
<!--// 
Еопс®1оп ЕБ1п (а,Б,ерз) 
{ уаг Е5=Еотта1. Еапс.уа]ое 
уахг х=а 
уаг Еа=еха1 (Ё$) 
х=р 
уаг ЕЮ=еуа1 (Ё5$) 
уаг Ёс 
уаг с 
уаг г 
1Е (Мабр.аЪьз$ (р-а) < ер5) 
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{ г= (а+5)/2 } 
е15е 
{ с=(а+Ъ) /2; 
х=с; Ес=еуа1 (Е$) 
1Е (Га*Ес < 0) 
{ г=Ер1р(а,с,ерз) } 
е15е 
{ г=Ефар (с,Ь,ерз) } 
} 
хебагп г 
} 
РопсЕ1оп Есез% (07) 
{ уаг Ез=Еотт1 .Еопс.уа]ае 
уаг х=ор].гез.ха1лле 
Уаг сез=еуа1 (#3) 
ОБ) .$е5е.уа1ае=феез 
} 
//--> 
</зсг1рЕ> 
</НЕАБ> 
<ВОПУ> 
<Н4>Нахождение корня уравнения вида <1>Е</1> (<1>х</1>)=0 
методом деления отрезка пополам</Н4> 
<РОКМ паме="ЕГотта1 "> 
<рге> 


Введите функцию: <1проаЕ $уре="Еехе" $12е=30 
пате="Еопс"><рг> | 


Введите левую границу отрезка: <1праЕ буре="%ехе" $17е=10 патме="1"><Вг> 
Введите правую границу отрезка: <1прае вуре="кехе" $17е=10 папе="г"><Вг> 
Задайте требуемую точность: <1праё суре="%ехе" $1хе=10 папе="ерз"><Вг> 
<1праЕ вуре="БаЕбоп" уа]ае=Вычислить 
опС11ск="Еог1 .гез.уа1ае=ЁЕр1пт (1*ЁЕотги1.1.ха1ае, 1*ЁЕогт1.х.уа1ле, 

1*Еогт1 .ер$з.уа]ае)"> 
<Вг> 
Корень уравнения равен: <1прае суре="бехе" $12е=30 папе="гез"><Вг> 
<1приЕ $уре="Баекоп" уа1ае=" Тест " опС11скК=" Еве (Ёогт1) "><Вг> 
Тест: <1прие суре="6ехе" $12е=30 папе="$езе"><рг> 


<1приЕ суре="гезее" уа]ае=Отменить> 
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</рге> 
</ЕОВМ> 
</ВОБУ> 
</НТМЬ> 


Для уравнения х4 + 2х3 — 2 = 0 все условия, при которых можно применять 
метод деления отрезка пополам, выполнены для интервала [0, 1]. Результат 
работы программы приведен на рис. 16.3. 


ооо алеры роб аавнЕТ 


г. ‚Файл Правка Ви во ное Сервис _Страека. _- Е 


Нахождение корня уравнения вида Ах)=0 методом деления отрезка пополам 


Введите функцию: рек ок 


палет мт ноу ть мульте АЛ «ны лоу золото печатльилле эльмльь про детацучьь рутер ть бульв мдеть отв 


Введите левую границу отрезка: Г 


к ви ее илл ие СХ тии оеоукт ео о еек ИИ ит АИ МИЛИ АИ О АРВ Ч Оф ИТ ЗЫ о ити коек ть линии пу лем 


Введите правую границу отрезка: |0 


лвл лол чо оли ль полы, охры ль Фрол олд поль м а лоиьлодлл лен уичинь ль рыльца али свиста локоть чт Ло уретры лик лан, 


Задайте требуемую точность: 0.001 


Вычислить | 


чета и ина нет сеет поесть ти у И ор ору са отит не еси АА Л оч и лее ее ие т ть лье ЗА р, лук чл мые аким от со еичщьнь © пекин 


Корень уравнения равен: 1088525330625 


К\мАожаня лалка радио вачьуя ул к лее -а к. оедАлал пдд клади р Алпи лдладл пл мод + дл кака чл оллщалиллл кд перила племен 4 к. пАлаи › лжи олд от диода иди, олдичмеллл чл дилл К дл Аза олд + ид лу фидо зечдуцк ильлаал АА замены лир Али р ль д лить плеь дул Адлвьраьклутф-я в чело. пивеньлььт дить 


ое, лол роль толь ет ть одел етом ть молить ль оли опечивуьл лилии моль нмолемнь м коль лечить тверь греч почт то чето ттт льет 


Тест: [0.0016474749964459078 


А о оо А Ор фе И ИЕ А Яо Е ро ИНЬ ВИА ИИ ИС А рома учолгирир и в етич 


_ Отменить _ 


Рис. 16.3. Рекурсивная функция нахождения корня уравнения 


Рассмотренные примеры показывают, что в ряде случаев можно получить 
короткую и выразительную программу, если строить рекурсивный алгоритм 
для решения задачи. Для продемонстрированных примеров, однако, сущест- 
вуют не очень сложные алгоритмы решения без применения рекурсии. Рас- 
смотрим задачу, для которой легко предложить рекурсивный алгоритм ре- 
шения, в то время как нерекурсивный алгоритм был бы сложным и искус- 
ственным. 
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Задача о Ханойских башнях 


Рассмотрим решение задачи, которая получила название "Задача о Ханой- 
ских башнях". Существует древнеиндийская легенда, согласно которой в 
городе Бенаресе под куполом главного храма, в том месте, где находится 
центр Земли, на бронзовой площадке стоят три алмазных стержня. В день 
сотворения мира на один из этих стержней было надето 64 кольца. Бог по- 
ручил жрецам перенести кольца с одного стержня на другой, используя тре- 
тий в качестве вспомогательного. Жрецы обязаны соблюдать условия: 


1. Переносить за один раз только одно кольцо; 


2. Кольшо можно переносить с одного стержня (х) на другой (у), только ес- 
ли оно имеет меныший диаметр, чем верхнее кольцо, находящееся на 
стрежне у, или стержень у свободен. 


Согласно легенде, когда, соблюдая все условия, жрецы перенесут все 64 
кольца, наступит конец света. 


На рис. 16.4 изображена ситуация, когда требуется перенести 7 колец. 


А В С 


Рис. 16.4. Ситуация при переносе семи колец 


Кольцо со стержня А можно перенести на стержень В или С, кольцо со 
стержня В можно перенести на стержень С, однако, нельзя перенести его на 
стержень А. 


Задача состоит в том, чтобы определить последовательность минимальной 
длины переноса колец. Решением задачи будем считать последовательность 
допустимых переносов, каждый из которых имеет вид х -> у, гдехи у одно 
из обозначений: А, В или С. Если кольцо всего одно, то задача решается за 
один перенос А -> В. Для перемещения двух колец требуется выполнить три 
действия: А -> С, А -> В, С -> В. Решение задачи для трех колец содержит 
семь действий, для четырех — 15. 


Напишем рекурсивную функцию, которая находит решение для произволь- 
ного числа колец. Функция имеет четыре параметра, первый параметр — 
число переносимых колец, второй параметр — стрежень, на который перво- 
начально нанизаны кольца. Третий параметр функции — стержень, на кото- 
рый требуется перенести кольца, и, наконец, четвертый параметр — стер- 
жень, который разрешено использовать в качестве вспомогательного. 
Последовательность переноса и колец изображена на рис. 16.5. 
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Рис. 16.5. Схема решения задачи о Ханойских башнях 


Чтобы перенести п колец со стержня х на стержень у, используя стрежень 5 в 
качестве вспомогательного (рис. 16.5, г), можно поступить следующим образом: 


С перенести и—1 кольцо со стержня х на <, используя стержень у в качестве 
вспомогательного стержня (рис. 16.5, а); 


С перенести последнее кольцо со стержня х на стержень у (рис. 16.5, 6); 


С перенести и—1 кольцо со стержня ‹ на у, используя стержень х в качестве 
вспомогательного стержня (рис. 16.5, в). 


При переносе п-1 кольца можно воспользоваться тем же алгоритмом, Т. К. 
на нижнее кольцо с самым большим диаметром можно просто не обращать 
внимания. Перенос одного кольца в программе выражается в том, что выво- 
ДИТСЯ соответствующий ХОД. 


НТМГ-код, содержащий описанный сценарий, приведен в листинге 16.6. 
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, Листинг 16.6. Задача о `Ханойских башнях и 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Задача о Ханойских башнях</ТТТЬЕ> 
<5сг1ре 1апдааде="Фауа$ск1р®">. 
<!-- 
Еопсе1оп №Б(п,х,у, 2) 
{ 1Е (1п>0) 
{ №Ь (1-1,х,2,у); 
Аосциеп® .мг1ее]1т ("<Р>", х," -> ",у); 


ВЬ (п-1,2,у,х); 


} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
<Н4>Решение задачи о Ханойских башнях</Н4> 
<РОВМ паме="ЁЕотг1"> 
<рге> 


Введите число колец: <1праё куре="вехе" $17е=5 
папе="$$1"><Вг> 


Введите начальный стержень: <1праЕ Еуре="кехе" $12е=5. 
папе="5{2"><Втг> 


Введите конечный стержень: <1праЕ вуре="кехе" з12е=5 
папе="${3"><рг> 


Введите вспомогательный стержень: <1прае буре="$ехе" $12е=5 
папе="$Е4"><птг> 


</рге> 
<1праЕ куре="раЕ$оп" уа1ае=Выполнить 
опС11ск="ИЬ (Ёо1111.$Е1.уа1ае, Еогт1 .$562.уа1ое, 
Рог] .5Е3.ха]ще, Еогт1.$64.хуа]ае) "> 
<1праЕ фуре="гезее" уа1ле=Отменить> 
</ЕОВМ> 
</вВорУ> 
</НТМГ> 
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Оценим, сколько переносов будет сделано и сколько шагов выведено при 
работе программы. Обозначим 7„ — число ходов, необходимых для переноса 
п колец. Очевидно, что 7 = 0, Т, = 2х Т +1 при я>0, отсюда получаем: 


п Т=2-1 
О 74=264-1=2х109 


Если считать, что на перенос одного кольца потребуется одна секунда, то на 
перенос всех колец потребуется более 5 млрд веков. 


Упражнения 


1. Напишите рекурсивную функцию зипи($,1,3), проверяющую, является 
ли симметричной часть строки з, начинающаяся 1-м и заканчивающая- 
ся 3-м ее элементами. 


2. Напишите рекурсивную функцию, "переворачивающую" заданное нату- 
ральное число. 


3. Напишите рекурсивную функцию, которая по последовательности ли- 
тер, представляющих двоичное число, определяет соответствующее деся- 
тичное число. 


Напишите рекурсивную функцию, вычисляющую п!'. 


5. Напишите рекурсивную функцию, определяющую количество единиц в 
двоичном представлении натурального числа. 


6. Напишите рекурсивную функцию, которая по заданным натуральным 
числам ти и выводит все различные представления числа п в виде сум- 
мы т натуральных слагаемых. Представления, различающиеся лишь по- 
рядком слагаемых, считаются одинаковыми. 


7. Напишите рекурсивную функцию, которая формирует в обратном по- 
рядке текст, задаваемый пользователем в текстовом поле формы. 


8. Напишите рекурсивную функцию для вычисления биномиального ко- 
эффициента С». 


9. Напишите рекурсивную функцию, проверяющую, является ли последо- 
вательность символов идентификатором. Напомним, что идентификато- 
ром будем считать последовательность букв и/или цифр, начинающуюся 
с буквы. 


10. В последовательности символов могут встречаться только цифры и зна- 
ки + (плюс), при этом последовательность представляет собой формулу 
сложения однозначных чисел. Напишите рекурсивную функцию, опре- 
деляющую значение формулы. 


11. В последовательности символов могут встречаться только цифры и зна- 
ки + (плюс) или - (минус), при этом последовательность представляет 
собой формулу арифметической суммы однозначных чисел. Напишите 
рекурсивную функцию, определяющую значение формулы. 


Глава 17 


Метод исчерпывающего 
перебора 


Рассмотрим следующую задачу. Пусть задаются значения переменных це- 
лого типа а, 6, с, а. В формуле вида а ? В? стребуется вместо знака вопроса 
поставить операцию (сложение, вычитание, умножение, остаток от деления) 
так, чтобы значение всей формулы равнялось значению переменной 4. Дан- 
ную задачу можно решать методом, который получил название метода ис- 
черпывающего перебора. Будем перебирать возможные комбинации знаков 
(шестнадцать вариантов), вычислять значение формулы при каждой комби- 
нации и отбирать формулы, удовлетворяющие условию. 


Нахождение формул видаа? Б?с=а 


Напишем программу, которая для формулы вида а 7? В ? с расставляет знаки 
операций таким образом, что значение формулы равно заданному значению 4. 


2 Исчерпывающий перебор. Нахождение Форму... [@] 3 
| `’Файл ‚ Правка’ Виа Избранное Сервис. ^ Спра » || 


Нахождение формул вида &?2?7с=4 


о 
‚| 
ОИ 
‚| 


Найденные формулы: 


Рис. 17.1. Поиск комбинаций знаков 
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Для формирования формулы будем использовать переменную з. Сначала с 
помощью переменной з1 запоминается подформула вида а ? В, затем подби- 
раются знаки для второй операции. Если значение формулы совпадает с за- 
данным значением, то формула запоминается в переменной згез. После 
анализа всех вариантов в текстовое поле формы выводятся либо найденные 
формулы, либо сообщение о том, что требуемые формулы не обнаружены. 
После того как формула сформирована, вычисляется ее значение с помо- 
щью стандартного метода еуха1. Результат работы функции на одном из тес- 
товых примеров приведен на рис. 17.1. 


Сценарий с описанной функцией имеет вид, представленный в листин- 
ге 17.1. 


ооо ное В ов ро ооо ооо рр ово о нов ооо воно ророно р ооо оо рос проо оо ооо про о ророр ооо ров ооо орон оо ро ооо ро ро со оро соо ооо ор ооо рос ооо оо оо ооо рос оцоориоооо ооо ооо рророоооооотососоророоо - 
НЗ 


: Листинг 17.1. Исчерпывающий перебор. Нахождение формул вида а 2 Г. 2? с с= 4 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Исчерпывающий перебор. Нахождение формул вида а?5?с=а</ТТТЬЕ> 
<5сх1ре БАМСОАС="Фауа$сг1р®"> 
<!-- // 
Еопсе1оп Еогто1а (057) 
{ таг а=ор].Ча®а1.уа]ае 
уаг Ю=ор).Чафа2.хуа]лае 
уаг с=ор}.Чафа3.уа1щае 
уаг А=ор).Чафа4.хуа1ае 
уаг згез="" 
уаг $5 
уаг $1 
уаг $2 
уаг г 
уаг р=Ёа]15е 


Бог (уаг 1=1; 1<=4; 1++) 


{ $1= а 
$м1Еср (1) 

{ сазе 1: $1+="+"; БгеаК 
сазе 2: $1+="-"; БгеаКк 
сазе 3: $1+="*"; ргеаК 
сазе 4: $1+="%"; ргеаКк 

} 

$1+=Ь 


Рог (ухаг 7)=1; 7<=4; 3++) 
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{ $2="" 
мТЕСИ (7) 

{ сазе 1: $2+="+"; ргеаКкК 
сазе 2: $2+="-"; ЬгеаК 
сазе 3: $2+="*"; ргеаК. 
сазе 4: $2+="%"; ргеак. 

} 

$2+=с 
5=$1+$2 
г=е\та] ($) 
1Е (г==а) 
{згез +=$+ "="+а+"\х\р"; р=егае} 
} 
} 
1Е (р) 


оЬ].гези1$.уа1ае=згез 
е1 зе 
ор] .геза1е.уа1ае="Формулы, удовлетворяющие условию, не найдены" 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОПУ> 
<Н4>Нахождение формул вида <1Т>а</1>?<Т>Ь</1>?<Г>с</Г>=<Г>9</1></Н4> 
<РОВМ паще="Еоут1 "> 
<рге> 
а: <1проф Еуре="кехе" $17е=20 паме="Чафа1" 
Ь: <1приЕ суре="Еехе" $12е=20 паме="аака2" 


с: <1проё Еуре="%*ехе" $12е=20 папе="Чафа3" 


уу У \У 


А: <1пряё суре="кехе" $17е=20 паме="Ча$а4" 
Найденные формулы: 
<сехбагеа со1$=30 гомз=5 паме="гезо1{" ></фехфагеа> 
</рге> у 
<НВ> 
<1праЕ туре="раЕеоп" уа1ае=Определить опС11ск="Еотиа{ а (Ёог1) "> 
<1прие фуре="гезее" уа1ле=Отменить> 
</ЕОВМ> 
</ВОБУ> 
</НТМГ> 
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Нахождение формул — 
видаа? (Ь ? (с? (4? (е? 1) 
с заданным значением 


На одной из Олимпиад по программированию была предложена следующая 
задача. Рассматривается формула вида 1 ? (2? (37? (4? (5? 6)))). Вместо 
знака вопроса поставьте одну из арифметических операций так, чтобы ре- 
зультат вычислений был равен 25. Сколько формул удовлетворяет этому ус- 
ловию? Сформулируем задачу в общем виде. 


Необходимо написать функцию, которая для формулы — вида 


а? (6? (с? (4? (е?}))) находит все комбинации знаков, при которых фор- 
мула имеет заданное значение. 


При решении задачи формулы будем хранить в одномерном массиве. Неко- 
торые значения массива нам известны (заданные операнды и скобки), а не- 
которым элементам следует присвоить значения операций. При задании 
массива з все операции совпадали с операцией + (сложение). В формуле, 
представленной массивом, операции являются элементами с индексами 1, 4, 
7, 10, 13. Для задания операций используются циклы. Когда очередная ком- 
бинация знаков готова, массив преобразуется в строку. При этом применя- 
ется метод ета1 для вычисления значения формулы, представленной стро- 
кой. Формулы, удовлетворяющие условию, запоминаются в строке зэгез. 
Описанная функция представлена в листинге 17.2. 


роз оооооооороо ооо ор оворроороро вос росс косо ро поро ооо оо ро о ооо ро ооо ооо во ос ооо ово ооо ооо роса ооо нови ооо воороово ооо осо во о оо во во во оо оо соо ров ооо вор ооровочовов зороорсо вооон. 


| Листинг 17.2. Нахождение формул видаа ? (5 7? (с? (а? (е 71))) 
ЕС заданным значением — 


<НТМЬ> 
<НЕАР> 
<ТТТГЕ>Нахождение формул вида а? (Ъ? (с? (а? (е?{)))) </ТТТЬЕ> 
<5сг1рЕ 1апачаде="Зауа$сг1р®"> 
<!-- // 
Еопсе1оп Еопаа1а (057) 

{ “ах а=Мопрег (ор .Чафа]1.уа]1ще) 
уагх Р=Мопег (об) .Чафа2.хуа14ае) 
уаг с=Мопрег (о) .Чафа3.уа1ае) 
уаг А=Мапоег (ор .Чаафа4.уа1ае) 
Уаг е=Мипрег (ор) .Чафа5.хуа]1ае) 
уаг Е=Мопрет (ор) .аафаб.уа1ае) 
уаг ч=М№атрег (ор) .Чафа7.уа]1ще) 


уаг 5=пем Аггау 
(а, "+", п" (",БЬ, "и," (",с, "+", "(",а, "+", О (",е,"+",Е, ") ", ") ", ") ", ") ") 
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уаг ор=пем Аггау ("+","-","*","$") 
уаг зЕхг="" | 
уаг згез="" 
уаг $Ет 
уаг р=Ёа1зе 
Бог (уаг 1=0; 1<=3; 1++) 
{ $[1]=ор[1]; 
Бог (уаг )=0; 73<=3; 7++) 
{ $[4]=ор[3]; 
Гог (уаг К=0; К<=З3; К++) р 
{ [7] =ор[К]; 
Бог (уаг п=0; ш<=З; п++) 
{ $[10]=ор [м]; 
Бог (уаг п=0; п<=3; п++) 
{ $[13] =ор [п] 
$6к="" 
Еог (уаг %=0; Е <= $.1еп9В-1; %&++) 
{ 56г+=$1[8] }; 
т=е\уа1 (5+г) 
1Е (г==9) 


{зхез +=$6:+ "="+а+"\г\п"; р=Егие} 


} 
1Е (р) 

о) .ге5и1е.хуа]ае=згез 
е1зе 


ор7.гезц1{.уа1ае="Формул, удовлетворяющих условию, не найдено. 


} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВОРУ р9со1ог=$11уег> | 
<Н4>Нахождение формул вида а? (Ъ? (с? (4? (е?Е)))) </Н4> 
<РГОВМ пате="ЁЕотги1"> 


<рге> 
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<ТМРОТ суре="фех®" $12е=20 паме="дафа1" 
<ТМРОТ фуре="фехе" $12е=20 папе="Чда$а2" 
<ТМРОТ фуре="$ехе" $12е=20 папе="Чафа3" 
<ТМРОТ буре="кехе" $12е=20 папе="Чафа4" 
<ТМРОТ вуре="6ехе" $12е=20 паще="Чафа5" 
<ТМРОТ фуре="$ехе" $12е=20 паме="Аафаб" 
<ТМРИТ суре="фехе" $12е=20 паме="Ча®а7" 


оно оо ст 
ууу уу у У \У 


Найденные формулы: 
<Бехсагеа со1$=30 гомз=5 паще="геза1е" > </6ехфагеа> 
</рге> 
<НВ> 
<ТМРОТ суре="рае®оп" уа1ае=Определить опС11ск="Еогтаа1а (Еогт1) "> 
<ТМРОТ фуре="гезее" уа]ае=Отменить> 
</ЕОВМ> 
</ВОрУ> 
</НТМЬ> 


Результат работы функции на одном из тестовых примеров приведен на 
рис. 17.2. 


23 Нахождение Формуя вида асе? | 


сила нех > 


и Файл. _Правка _ ‚Вик Перекод _ Избранное в р» 


_ Найденные. ‘формулы: ЕЕ 
в 1123-44548) }=25 
.11- (2* (3% (4% (5-6) }} } =25 
|1 (2+ (3+ 14* (5%6)))} =25 
11 (2- (3+(4- (5*6)})} =25 


Рис. 17.2. Полный перебор 
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При решении задачи методом исчерпывающего перебора следует обратить вни- 
мание на два момента: 
|. Требуется определить порядок, в котором следует рассматривать варианты. 


2. Необходимо убедиться в том, что все варианты рассмотрены. 


Более подробно на этих вопросах остановимся при решении следующей за- 
дачи. 


Нахождение формул 

видаа, ? а? а. ?... ? а, = ВБ 

Пусть имеется п (п < 10) целых значений а1, а2, ..., аа и целое число В. Тре- 
буется написать программу, определяющую все формулы, для которых верно 
а1Фа2Ф...Фап = В 


где ® — обозначение операции + (сложение) или - (вычитание). Например, ес- 
ли значение ля равно 4, все числа а! равны 1, значение В равно 2, то в результате 
выполнения программы должны быть выведены следующие формулы: 


1-1+1+1 = 2 
1+1-1+1 = 2 
1+1+1-1 =2 


Если же значение В равно 4, то в качестве ответа должна быть формула 
1+1+1+1 = 4 


В случае, когда В равно 5, следует выдать информацию, что требуемые фор- 
мулы не найдены. 


Если формула содержит п значений, то в искомой формуле должно быть 
использовано и-1 знаков операций. Так как по условию задачи разрешено 
использовать только знаки + (плюс) или - (минус), то возможно 2”-| раз- 
личных комбинаций знаков. Например, если исследуется формула, содер- 
жащая четыре переменных вида а1Фа2ФазФа4, то необходимо рассмотреть и 
вычислить восемь формул, представленных в табл. 17.1. 


Таблица 17.1. Формулы и соответствующие им комбинации знаков 


№ варианта Формула Комбинация знаков 
1 а, - а> - аз- а, --- 
2 а. - а›- аз+ а. --+ 
3 а! — а + аз- а, -+- 
4 а, - а. + а. + а, ++ 
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Таблица 17.1 (окончание) 


№ варианта Формула Комбинация знаков 


5 а: + а>- аз - а, + -- 
6 а + а›- аз + ал + -+ 
7 а, + а›+ аз - а ++ - 
8 а: + а› + аз + а. | ++ + 


Если знаку - (минус) сопоставить ноль, а знаку + (плюс) — единицу, то 
комбинацию знаков можно трактовать как двоичную запись числа ©, где 
0<а< 2"! -— 1. Разбор всех возможных комбинаций знаков соответствует 
анализу двоичных представлений всех чисел а, где 0<а<2"! -— |. Если п 
равно 4, то выписанные ранее комбинации знаков отвечают двоичным пред- 
ставлениям чисел от 0 до 7. Комбинации знаков представлены в табл. 17.2. 


Таблица 17.2. Соответствие между комбинацией знаков и двоичным числом 


№ варианта Число в ДВОИЧНОЙ Комбинация знаков 
системе счисления 
1 000 ИИ 
2 001 + 
3 010 + 
4 011 -++ 
5 100 +-- 
6 101 +-+ 
7 110 ++ - 
8 111 ++ + 


Теперь надо уточнить порядок рассмотрения вариантов. Самый простой 
подход состоит в том, чтобы переход от одной комбинации к другой означал 
переход от двоичной записи числа © к двоичной записи числа @ + 1, т. е. 
прибавление к текущему значению двоичного числа единицы. Если в каче- 
стве начальной комбинации знаков взять комбинацию из всех минусов 
(комбинация соответствует числу ноль), то после выполнения 2"! — | числа 
сложений будет получена комбинация знаков, состоящая только из знаков 
плюс, и соответствующая двоичной записи числа 2”! — 1. Все возможные 
комбинации знаков будут исчерпаны. Таким образом, процедура моделирует 
увеличение двоичного числа на единицу и состоит в просмотре массива 2 с 
конца и поиске первого знака минус. При этом все встретившиеся знаки 
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плюс заменяются знаком минус. Первый с конца знак минус также заменя- 
ется знаком плюс и просмотр массива знаков завершается. При решении 
задачи нам потребуется формировать массив из и-1 знаков. Переход к сле- 
дующей комбинации знаков осуществляется при вызове функции Мем$1 дтп: 


Еопсе1оп Мемб1ап () 
{ уаг 1=р0-2 
мр1]е (1>=0) 
{ Е (2[1] =="+") 
{ 2] = "-"; 1-- } 
е15е 


{ 2[1] 


"+"; РгеаК } 


} 


При выполнении функции Еогио1а перебираются все комбинации знаков. 
Если значение формулы совпадает с требуемым значением, то такая форму- 
ла запоминается. Кроме того, подсчитывается количество формул, удовле- 
творяющих условию. Массив, содержащий значения операндов формулы, 
хранится в отдельном файле. Пример работы сценария для некоторого тес- 
тового набора приведен на рис. 17.3. 


Е Формулы в вида а а1?а22а3?.. | ‚Зап-ь - МестозоН о Г: 


име 


С Файл _ Правка - Ви „Переход _ Избранное _ — 


и Элементов: [2345678910 Не. 
_ Значение. Формулы: пе — 


|| ИИ 2 - В =. г а т .. — | . е № | , | 
| ожиыстве ‘формул: СИ а О 
“Найденные. ‘формулы: о рта Зоо ЛИ НИ В 

| [=2-3-4+54627-6+9+10=25 


|-|1+2-3+4-5+6-7+8+9+10=25 
[+243 -4- 5- 6+7+8+9+10=25 


Отменить | ``. 


ПГ Ебойканьеть 


Рис. 17.3. Формула из л значений без скобок 
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Полностью сценарий с описанными функциями представлен в листинге 17.3. 


"Листинг 17.3. Нахождение формул вида а а ва 


<НТМГ> 
<НЕАО> 


<5СсЕ1рЕ згс="аггЕогт. ]5"> 
</зсх1рЕ> 

<5сг1рф ]апачаде="Зауа$сг1ре"> 
<!-- // 


уаг згез="" 


уаг К // Число комбинаций знаков 

уаг Ь // Значение формулы 

уаг п= \.1епа В // Реальное число переменных 
уаг уагзр=0 // Количество найденных решений 


// Функция УЁЕогта вычисляет значение формулы 
// при заданной комбинации знаков 
Еопсе1оп УЕоги() 
{ таг. $ = М№аюрег (%[0]) 
Бог (маг 1 = 0; 1 <= 1-2; 1++) 
зм1ЕСВ (2[1]) 
{ сазе "+": $ += М№опбег( у%[1+1]); БгеаКк 
сазе ‚„"-":; $ -= Мибег( у[1+1]); Бгеак 
} 
тебагп 5 
} 
// Функция Ме1$еГога выводит формулу 
ЕопсЕ1оп Иг1$еГогт () 
{ уаг эЕг= У [0] 
Еог ( хаг 1 = О ;т1 <= п-2; 1++) 
$м1Есй ( 2[1] ) 
{ сазе "+": зЕк +="+"+ \у[1+1]; БгеаКк 
сазе "-";: з6х +="-"+ [1+1]; Бгеак 
} 
ег += "="+Ь+"\у\п" 


тебагп $5Су 
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// Функция №еи519п формирует следующую комбинацию знаков 
Еапс&1оп Мем5Э1ап () 
{ уак 1=п-2 
имВ11е (1>=0) 
{ 1 (2[1]=="+") 


{ 2[1] — Ё"_'; 1-- } 
е1 зе 
{ 2[1] = "+"; огеак } 


} 
// Функция Теа формирует начальную комбинацию знаков 
Еапсе1оп Тп151оп () 

{ Еог (уаг 1 =0; 1<= п-2; 1++) 

21] = "-" } 

} 
// Функция Еоппа]а просматривает все варианты и отбирает 
// удовлетворяющие условию 
Еапс1оп Еотио]а (оЪ)) 

{ = оЪ] .уа1Еога.уа1ае 

ТЕ (Б=="") 


а1ех* ("Вы не ввели значение формулы") 


е1 зе 
{ К = Маф .ром (2,п-1) 

зхез="" 
уагзп=0 
10151 от () 
Бог (уаг ® = 1; &4<= К; %++) 

{ 1Е (УЕона() ==Мапег (Ъ)) 

{ згез += Мг1$еГога(); хагзВ++ } 
Мем51оп () 


} 
1Е (уагзП==о0) 

5гез= "таких формул нет" 
ор] .геза1е.уа1ще=згез 


ор] .Ча®а1.уа1ае=уаг$В 


} 
ЕопсЕ1оп мг1феагкх(0Ъ71) 


{ор .уагаггау.уа1ае=у} 
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//--> 
</зсг1ре> 
</НЕАО> 
<ВОРУ Ьчсо1ог=$11уег> 
<Н4>Формулы вида а1?а2?а3?...?ап=р</НА> 
<РОВМ папе="Ёоги1"> 
<рге> 
<1прае суре="раЕбоп" уа1]ле=Массив опС11ск="иг1еагг (Ёог1) "> 
Значения элементов: <1приЕ Еуре="6ехе" 512е=20 папе="уагаггау"> 
Значение формулы: <1приЕ гуре="$ехе" $1хе=20 папе="уа1Ёогти"><ВВ> 
<1приЕ буре="БаЕбоп" уа1ае=Определить опС11ск="Еогта1Та (Еотта1) "> 
Количество формул: <1праё Еуре="$ехе" з12е=20 паще="Чака1"> 
Найденные формулы: 
<сехеагеа со1$=30 хгомз=3 паще="ге$\11е" > </бехкагеа> 
</рге> 
<1праЕё +уре="гезее" уа1пе=Отменить опС11СсК= '5хез=""; уагзр=0 '> 
</ЕОВМ> 
</ВОрУ> 
</НТМГ> 


Упражнения 


1. Напишите функцию, которая для формулы вида ((а? 5)? с)? ((9?е?)}, 
где вместо знака вопроса может стоять любая из операций сложения, вы- 
читания, умножения, находит все комбинации знаков, при которых фор- 
мула имеет заданное значение. 


2. Напишите сценарий, который размещает цифры 1, 2, 3, 4, 5, 6, 7, 8,9 
так, чтобы имело место: ----- /-----=р, ГДе п равно одному из чисел 2, 3, 
4,5, 6, 7, 8, 9. 


3. Пусть задана формула вида А!Ф А) Ф... ® А,, где А; может принимать целое 
значение, знак Ф соответствует операции сложения, вычитания или умно- 
жения. Напишите сценарий, который определяет, существует ли набор 
знаков операций, при которых формула принимает заданное значение. 


4. Пусть задана формула вида 4!® 4› ©... Ф А,, где А; может принимать це- 
лое значение, знак Ф соответствует операции сложения, вычитания или 
умножения. Напишите сценарий, который определяет все наборы знаков 
операций, при которых формула принимает заданное значение. 


5. Пусть задана формула вида А41® А. Ф ... ® А,, где А; принимает значения 
либо истина, либо ложь, знак ® соответствует операции дизъюнкции или 


Глава 17. Метод исчерпывающего перебора 371 


конъюнкции. Напишите сценарий, который определяет, существует ли 
набор знаков операций, при которых формула принимает заданное зна- 
чение. 


6. Пусть задана формула вида А1® Ао ® ... ® А, где А; может принимать 
значения либо истина, либо ложь, знак Ф соответствует операции дизъ- 
юнкции или конъюнкции. Напишите сценарий, который по указанному 
набору операций присваивает переменным А; такие значения, чтобы зна- 
чение всей формулы совпадало с заданным. 


7. Дано уравнение вида Ех) = 0, где Кх) строится из целых чисел, арифме- 
тических операций (+, -, *, /), и переменной х, которая может входить не 
более одного раза. Напишите программу, которая решает заданное урав- 
нение и печатает его корни в виде несократимой дроби. 


Глава 18 


Метод рекурсивного 
спуска 


Про формулы, в которых знак операции стоит между операндами, говорят, 
что они записаны в инфиксной нотации. Именно такие формулы мы и рас- 
сматривали и обрабатывали ранее. Рассмотрим рекурсивные алгоритмы об- 
работки формул, представленных как в инфиксной, так и в других формах. 


Представление формулы 
в прямой польской записи 


Во многих случаях можно использовать формулы в бесскобочной записи. 
В префиксной форме каждый знак операции ставится перед своими операн- 
дами. Такую запись иногда называют прямой польской записью. Формула 
а+5*с в префиксной нотации запишется так +а*рс, а формула (а+5)*с- 
—(а+е)/К следующим образом: —*+абс/+аеК. Итак, формула в инфиксной 
форме АФВ, где Ф — бинарная операция, А и В — операнды (которые в 
свою очередь могут быть формулами). В префиксной форме формула выгля- 
дит так ФАВ. В прямой польской записи скобки не требуются, т. к. для каж- 
дой операции известны операнды. 


Напишем программу, вычисляющую значение формулы, содержащей целые 
константы, операции +, -, *, %, и представленной в прямой польской записи. 


Будем считать, что в формуле встречаются целые константы из диапазона 
[0; 9]. Формула 

((3+7)*(5—2)+7)*2+6 
в префиксной форме запишется так: 


+*+*-+37—52726. 


Результат выполнения сценария приведен на рис. 18.1. 


Введенная пользователем формула в префиксной нотации хранится в строке 
35. Формула просматривается слева направо. Функция сигзую обеспечивает 
выбор очередного символа для анализа. Допустимыми символами являются 
знаки операций и цифры, выступающие в роли операндов. Является ли оче- 
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редной символ знаком операции, проверяется функцией $314. Сообщение об 
ошибке формирует функция ег. 


| Вычисление значения формулы в префиксной нотации т 


Введите формулу:  |*+“+37-52726 | 


Значение формулы: 


ХА Аль А ТИ ДА ДУМ АЕ и лм 144 АДА А У А Пл АЯ АТ а А, нА 


Рис. 18.1. Значение формулы в префиксной нотации 


Значение формулы считается с помощью рекурсивной функции уЕогп. По- 
ясним ее работу. Формула в префиксной нотации имеет вид ФАв, следова- 
тельно, первый символ обязан быть знаком операции. Запоминаем его в пе- 
ременной вн. Подформула А является формулой в префиксной нотации, 
поэтому ее значение можно вычислить с помошью той же самой функции 
уЕогт. Следует выбрать первый символ формулы, вычислить ее значение и 
присвоить переменной 1. Если формула не содержит ошибок, то следует 
вычислить значение подформулы в. Выбирается первый символ подформу- 
лы в, вычисляется значение и присваивается переменной г. После этого все 
готово для того, чтобы завершить вычисление значения всей формулы ФАв. 
В зависимости от знака операции выполняются соответствующие действия. 
Приведем программу, содержашую сценарий решения задачи (листинг 18.1). 


Листинг 18.1. Вычисления значения формулы в префиксной нотации 
<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Вычисления значения формулы в префиксной нотации</ТТТЬЕ> 
<5сг1ре 1ападчаде="Фауа$схаре"> 
<!-- // 
// Глобальные переменные 
уаг 5% 
уаг 1 
уаг с 


уаг г 


13 Зак. 834 
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// Функция выбора для анализа очередного символа 
Еапсе1оп сигзуц () 
{ 1=1+1 
уах ПВ 
В = 5%. сСВагА® (1); 
хеёагп ПВ 
} 
//Функция, определяющая, является ли символ ‘знаком операции 
Еапсе1оп $14 (2) 
{ уаг р = (2=="+") || (2=="-") || (2=="*") || (2=="/"); гебагп р} 
// Функция обработки ошибки 
Еопсе1оп ег ($ ) 
{ уаг у = "ошибка в формуле: "+$+"<рг>" 
Чосимеп® .мтх1фе (у) 
} 
// Значение формулы в префиксной нотации 
Еапс®1оп УЕоги() 
{ таг д; уаг ЦП; уаг 1; уаг г; 
ТЕ (с >= "0" && с <= "9") 


{ 9= с*1; гебаги а } 


е1 зе 
{ 1Е (519 (с) == &хое) 
{ В=с 
с = сагзум(); 1 = УЕон() 
с = сигзум(); г = УЕоа() 


змаЕсВ (ПВ) 
{ сазе "+": 9=1 +г; БгеаКк; 
сазе "-": д= 1-г; Бгеак; 
сазе "*": д= 1*г; ргеаКкК; 
сазе "/" : 1Е (х != 0) { 9= 1/г; Бгеак } 
е15е ег ("Деление на ноль") 
} 
гебсагп а 
} 


е1зе ег("неверный символ") 


} 
// Функция, обеспечивающая начальные установки 


// и вызов функции УЕопт 
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РапсЕ1оп шмалп (057) 
{ з3Е = 0о5).Е1.уа1ае 
1=-1 
с = сагзум () 
г = УЕот() 
ор] .Егез.уа]щае = к 
} 
//--> 
</5сг1ре> 
</НЕАШ> 
<ВОрУ> 
<Н4>Вычисление значения формулы в префиксной нотации</Н4> 
<ГОВМ паме="Еохт1"> 
<рге> 
Введите формулу: <1праЕ Еуре="бехе" $12е=15 паще="Е1"><НВА> 
Значение формулы: <1праё Еуре="+ехе" $17е=15 паше="Егез"><НВ> 
</рхе> 
<1прие суре="рае оп" уа]ае=Выполнить опС11ск="тща1п (ЁЕогт1) "> 
<1прае $уре="гезеф" уа]1ае=Очистить > 
</ЕОВМ> 
</ВорУ> 
</НТМГ> 


Представление формулы 
в обратной польской записи 


При записи формулы в постфиксной нотации (обратной польской записи) 
знак операции ставится непосредственно после операндов. Например, фор- 
мула а+5*с в постфиксной нотации: афс*+, формула (а+5)*с- (а+е)/К в об- 
ратной польской записи выглядит так: аб+с*ае+К/-—. Для формулы в ин- 
фиксной нотации вида АФВ формула в постфиксной нотации имеет вид АВ Ф, 
где Аи В — формулы в постфиксной нотации. 


Напишем программу, которая по произвольной формуле в инфиксной нота- 
ции строит формулу в постфиксной нотации. 


Формула состоит из переменных (представленных однобуквенными иден- 
тификаторами), знаков операций и круглых скобок. Допустимыми знаками 
операции являются знаки +, -, *и /. При просмотре формулы слева напра- 
во число открывающих скобок должно быть более или равно числу закры- 
вающих. Во всей формуле число открывающих и закрывающих скобок 
должно быть одинаково. Формулу при решении задачи просмотрим слева 


376 Часть /!!. Решение вычислительных задач с использованием /ауаЗспрЕ 


направо один раз. Приведем метод решения, который получил название ме- 
тода рекурсивного спуска. 


Для решения задачи удобно ввести понятия, характеризующие отдельные 
части формулы и формулу целиком. Будем называть множителем либо пе- 
ременную, либо формулу, заключенную в скобки. Будем называть термом — 
либо один множитель, либо последовательность множителей, соединенных 
знаками * или /. И, наконец, назовем формулой — один терм, либо последо- 
вательность термов, соединенных знаками + или -. 


Сначала опишем функцию (назовем ее роз+Ёоги), которая по формуле фор- 
мирует обратную польскую запись. Формула состоит либо из одного терма, 
либо из последовательностей термов, соединенных знаком + или -. Если 
формула имеет вид 71 + 7> - Ту, то записанная в постфиксной нотации, она 
будет выглядеть так: 7”! 7”. + Г’з, где Г’; — постфиксная нотация формулы 
Г(=1, 2,3). 

При написании функции розЕРогю будем использовать функцию розе+кегт, 
которая "умеет" строить постфиксную нотацию для подформулы, опреде- 
ленной как терм. Пусть функция и"гзум(в) помещает символ в строку ре- 
зультат. Как и ранее будем считать, что процедура согзум выбирает для ана- 
лиза очередной символ. 


Процедуру роз&Еоги, Которая строит по формуле в инфиксной нотации 
формулу в постфиксной нотации, можно записать следующим образом: 
ЕапсЕ1ол розЕЕогм() 
{ розесекгм() 
мб11е ((с == "+") || (с == "-")) 
{ уаг Б=с 
с=сагзум () 
розЕфеги () 


игзут (п) 


} 


Теперь следует описать функцию розеееги. Вспомним, что терм состоит 
либо из одного множителя, либо из последовательности множителей, со- 
единенных знаками *, /. 


Если терм имеет вид Му х М) / Мъх Ма, то записанный в постфиксной но- 
тации он будет выглядеть так: М.М. х М. / М. х, где М’; — постфиксная 
нотация формулы М; (Г = 1, 2, 3, 4). При написании функции розехегм 
можно использовать функцию роз+пп, которая "умеет" строить постфиксную 
нотацию для подформулы, определенной как множитель. 

Еопсе1оп роз®фегм () 


{ розетл () 


| 
+ 
О 
|| 
[ 
—. 


мр11е ((с = 
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{ таг В=с 
с=сагзуий () 
роз () 


мгз ут (П) 


} 


Если множитель состоит лишь из переменной, то она уже находится в 
постфиксной нотации. Если множитель представляет собой формулу в 
скобках, т. е. имеет вид (Г), то постфиксная нотация такой формулы совпа- 
дает с постфиксной нотацией формулы Ё Для того чтобы построить пост- 
фиксную нотацию формулы АР, следует обратиться к описанной ранее функ- 
ЦИИ роз5ЕЕогм.: 

Еапсе1оп розешп () 

{ ЗЕ((с >= "а") && (с <= "2")) 
{ мгзум (с) 
с=сагзуий () 


{ с = согзум () 
ро5ЕЕогм () 
1Е (с !=")") ег=егае 
е1зе 
{ с = согэум() } 
} 


е]1зе ех=Егае 


} 


Проследите, как будет осуществляться вызов описанных функций при пре- 
образовании формулы, представленной на рис. 18.2. 


Заметим, что функция роз Еогм СОДержит вызов функции роз {егм, Которая 
обращается к функции розепп, последняя, в свою очередь, содержит вызов 
функции роз%Еогт. Такую рекурсию иногда называют косвенной. 


После того как пользователь ввел формулу и нажал на кнопку Выполнить, 
происходит вызов ФУНКЦИИ па1п, в Которой выполняются необходимые на- 
чальные действия, такие как выбор первого символа для анализа, присвое- 
ние значения :з1зе переменной ек, чтобы отследить ситуацию, если в фор- 
муле содержится ошибка. В функции па1п осуществляется вызов функции 
розЕЕогм(), И анализ ситуации после завершения работы этой функции. 
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Построение обратной польской записи методом рекурсивного 
спуска 


Введите формулу: (а+6)^с-(9+е)/‹ 


оллналль уаллллл 


Формула в постфиксной нотации: [в6+с“Че+К/- | 


армии талии мы лтечьлог. 


еллилллляь гл кпх- иврлла ль иллвгьча пол олилкижа юля оля + лжи ЗАЛА че нал к ЧА ЛЬВАь Ак клад палка пла о пала иььилл п. ъумь инди лаьыл туд, ам делл нтурьмдьлбьл клал 


рееллечии редис ооеиечеьлоьлочитеииь 


или ум оли одрлиитикиоиииечестия поллриликллиилит кент 


ее» 


| Г: Ем Мой. компьютер = 


Рис. 18.2. Построение постфиксной нотации 


НТМЕ-код приведен в листинге 18.2. 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Построение формулы в обратной польской записи</ТТТЬЕ> 
<$сг1рЕ 1апдиаде="Фауа$ сг1ре"> 
<!-- 
// Глобальные переменные 
уаг $ // Формула в обратной польской записи 
уаг 3 // Исходная формула в инфиксной нотации 
уаг 1 // Индекс очередного анализируемого символа 
уаг ег // Ошибка 
уаг с —// Очередной символ формулы 
// Функция, осуществляющая начальные установки и 
// вызов основной функции, осуществляющей построение 
// обратной польской записи для формулы 
ЕопсЕ1оп ма1п(о)) 
{ 8="" 
5Е=оЬ) .Е1 .уа1ае 
1=-1 
ег=Ёа15е 
с=сагзуц () 
розЕЕоит () 


1Е (ег) 


ы 
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а1еге ("Ошибка при задании формулы", "<Бг>") 
е15е 
{ Еоги1.Ехез.уа]1оае=$ } 
} 
// Выбор очередного символа 
Еапс&1оп сагзуц () 
{ 1=1+1 
гегоагп 5$.срагАЕ (1); 
} 
// Формирование строки, представляющей формулу 
// в обратной польской записи 
Рапс®1оп мгзум (|) 
{ э+=В } 
// Обратная польская запись для формулы 
Еопс®1оп розЕЕог() 
{ розееетт() 
ир11е ((с == "+") || (с == "-")) 
{ уаг В=с 
с=сагзум () 
роз ет () 
мезут (п) 


} 
// Обратная польская запись для терма 
Еапс&1оп розебегм() 
{ розетл () 
мр11е ((с == "*") || (с == "/")) 
{ уаг В=с 
с=сагэум () 
розетип () 
мгзум (В) 


} 
// Обратная польская запись для множителя 
Еапсе1оп роз&тл () 
{ 1Е ((с >= "а") && (с <= "2")) 
{ мкзум (с) 
с = сагзум (); 


[5 
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е]1 зе 
{ 1Е (с == "(") 
{ с = сагзум() 
розЕЁоги () 
1Е (с !=")") ег= $буде 
е1зе 


//--> . 
</зсЕ1рЕ> 
</НЕАО> 
<ВОрУ> 
<Н4>Построение обратной польской записи методом 
рекурсивного спуска</Н4> 
<РГОВМ папе="ЁЕоги1 "> 
<рге> 
Введите формулу: <1прае фуре="Еехе" $17е=25 паще="Е1"><НВ> 
Формула в постфиксной нотации: <1прие $уре="вехе" з1хе=25 
паме="ЁЕтез"><НВ> 
</рге> 
<1праЕ Еуре="Ба&Фоп" уа1ае=Выполнить опС]1ск=" шали (ЁЕо1т1)"> 
<1прие $уре="гезее" уа1ае=Очистить><НК> 
</ЕОВМ> 
</ВорУ> 
</НТМГ> 


Если формула содержит ошибку (либо два операнда располагаются друг за 
другом, либо подряд следуют два знака, либо встретился недопустимый 
символ и др.), то значение переменной ег станет равным +гое. После за- 
вершения работы функции розЕЁоги() проверяется значение переменной 
ег. Результат работы сценария в случае, когда формула содержит ошибку, 
представлен на рис. 18.3. 


Может возникнуть ситуация, когда проанализирована не вся формула, по- 
этому после работы функции розЕЕоги() надо убедиться, что формула про- 
смотрена целиком. Изменить сценарий, чтобы учесть такой случай, читате- 
лю предлагается в качестве упражнения. 
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Построение обратной польской записи методом 


3 Местозой Ниете Ехрогег 


(а+Б)*(4$е) 


реки оао леь А А ЗЛАДАА К АОАЛА ААА АТОЛЛ удал Кладка кл ААА лат пали пала ла али 


У ое ИИ Хоа У Чи ие о о ел А ии Дл ла ки ол ими . | 


ПА А о дл сельныя реет ная чньляь 


аткит ооо Минью ^^ 


Рис. 18.3. Обработка ошибки 


Вычисление значения формулы 
в прямой польской записи 


Напишем сценарий, вычисляющий значение формулы. Формула состоит из 
целочисленных констант (от 0 до 9), знаков операций и круглых скобок. 
Допустимыми операциями являются сложение, вычитание, умножение и 
деление. Формулу при решении задачи требуется просмотреть слева направо 
один раз. 


Для решения задачи удобно использовать понятия формулы, терма и мно- 
жителя, введенные при решении предыдущей задачи. 


Как и ранее, будем считать, что функция сигзую() выдает для анализа текущий 
символ. Опишем функцию уа1Еогт(), которая анализирует формулу, и, если 
формула построена правильно, вычисляет ее значение. По данному определе- 
нию формула всегда начинается с терма. Будем считать, что функция уа1еегт() 
вычисляет значение для части формулы, которую мы определили как терм. По- 
сле вызова функции уа1%еттж() будет вычислено значение первого терма. Если 
далее в формуле следует знак + или знак -, то за знаком в формуле должен 
опять следовать терм. Вычислим значение и этого терма, воспользовавшись 
процедурой уа1+егт(). Далее можно определить значение подформулы с двумя 
термами. Процесс продолжается до тех пор, пока после анализа очередного 
терма текущий символ не станет отличным от знака + или знака -. 


Полностью функцию уа1Еоги можно описать так: 
Еопс$1оп уа1Еогц() 


{ уаг &%1 = уа1фегм() 
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уаг $2 
ив11е ((с == "+") || (с == "-")) 
{ таг В =с 
с =сагзум () 
{2 = уа1$егм() 
ТЕ (1=="+") &1 = 61 + +2 
е15е +1= %1 — %2 
} 
гебсагп Мипрег (11) 


} 


Напомним, что при вычислении значения формулы мы воспользовались 
функцией вычисления значения терма. Опишем ее. Мы предполагали, что 
терм состоит либо из одного множителя, либо из множителей, соединенных 
знаками умножения и деления. Поступим так, как уже поступали ранее. Бу- 
дем считать, что Функция уа1ип() вычисляет значение формулы, опреде- 
ленной как множитель. Для того чтобы вычислить значение терма, следует 
сначала определить значение множителя. Анализируя знак операции, сле- 
дующий за первым термом, мы либо прекращаем анализ формулы, либо вы- 
числяем значение очередного множителя и т. д. Функция уа]1сеги() ОоЧень 
похожа на функцию уа1Еогм(). Следует обратить внимание на значение де- 
лителя при выполнении операции деления. 
ЕапсЕ1оп уа1$егм() 
{ уаг +1 = уа1тп () 
уахг {2 
мр11е (с == "*") 
{ тах В = с 
с = сагзуп () 
$2 
$1 


} 
гебагп МатЬег (+1) 


} 


Теперь необходимо описать функцию ла1пп(). Множителем может быть 
константа (ее значение нам известно) или формула в скобках (то есть мно- 
житель может иметь вид (Р)). Если же очередной символ не является ни 
числом, ни открывающей скобкой, то формула содержит ошибку. 


хуа1]тап () 
Е1 * +2 


Рассмотрим случай, когда множителем является формула в скобках. Значе- 
ние формулы (ГР) совпадает со значением формулы РА, а значение формулы 
мы уже умеем вычислять с помошью Функции уа1ЁЕоги(), которой мы и 
воспользуемся. После вычисления значения формулы ЁР очередным симво- 
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лом должна быть закрывающая скобка. Если это не так, то нарушен баланс 
скобок и формула содержит ошибку. 


Будем, как и ранее, использовать логическую переменную ек, значение ко- 
торой изменится на +гоае в случае определения ошибки в формуле. Приве- 
‘дем описание функции уа1тп (): 
Еопс®1оп уал () 
{ АЕ ((с >= "1") 4 (с <= "9")) 
{ уаг П=Мапрег (с) 


с = сагзум(); 


гесатп В 
} 
е15е 
{ ЗЕ (с == "(") 


{ с = сотзум () 


уаг + = уа1ЁЕоги () 


ТЕ (с !=")") ег= тгае 
е15е 
{ с = сагзвум (); гебоагр Мирегк(®) } 


Заметим, что функция уа1ЁЕоги содержит вызов функции уа1%егт, Которая 
содержит вызов функции уа1пп, Последняя, в свою очередь, обращается к 
Функции уа1огм. Здесь, как и в предыдущем случае, имеет место косвенная 


рекурсия. 


Напомним, что рассмотренная нами ранее функция еуа1 (5) рассматривает 
строку з как выражение, и вычисляет ее значение. 


В программе для контроля работы описанных функций используется функ- 
ЦИЯ уа1%ез+, которая обращается к функции ета1 и записывает в соответст- 
вующее поле формы вычисленное с ее помощью значение (рис. 18.4). 


Функция еуа1 обладает бблыними возможностями, чем приведенная про- 
грамма. В этом смысле программа носит демонстрационный характер. Но 
если в формуле присутствуют знаки операций, не определенные в языке 
Тауа$спрь то воспользоваться методом еуа1 не удается, требуется писать 
свою программу определения значения формулы. Предложенный метод ре- 
курсивного спуска оказывается полезным при решении многих задач. 
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Е Задача вычисления значение Формулы - Мистозой рпкегле! ЕирГоге: „| ПУХ: 


Й Файл. ‚ Правка ва. _ Иобранное _Сервис Справка _ 


НИ —> к е = ет ще и ее их чих элите 


Вычисление значения формулы методом рекурсивного спуска 


Введите формулу: [2945679 (7+2) 


эмм дали ок змкл: оеля акта олд прил ллшрьл п К одлядахдлли © ад чл ол ЗАЛ зо, Ада кл чльлА лжи лил А училльлллл лови иди лдиьчь чл пл скал пак < пам лккль пас дла олд м алАклААь, 


Значение формулы: [3265920 


Функция еуа!: [3265920 


_._ Очистить: > 


ля доме долл иди тк о оли чрллмьч кепи дклллмели, мкА к в Пока ое ооиянащая пала поллллнте ба 


=]. Готово о... И. а ТЕ [5 Мой, Компьют ЕР. ВР 


Рис. 18.4. Значение формулы в инфиксной нотации 


Приведем полностью программу, решающую задачу (листинг 18.3). 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Задача вычисления значения формулы</ТТТЬЕ> 
<$сг1р®е 1апдцаде="Дауа5сг1ре"> 


<!-- //. 
уаг 5% // Исходная формула 
уаг 1 // Индекс текущего символа 
уаг ег // Фиксация ошибки 
уаг с // Очередной символ формулы 


// Выбор очередного символа 
Еопс®1оп  сагзум() 
{ 1=1+1; гебагпр $%.срагАФ (1) } 
// Значение формулы 
Еопс&1оп уУа1Еогм() 
{ уаг 1 = уа]1Феим() 
уаг +2 
ир11е ((с == "+") || (с == "-")) 


{ таг В = 
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с =сагзум() 
Е2 = уа]Фегм() 
1Е (В=="+") $1 = 1 + 62 
е1зе +%1= {1 — %2 
} 
хееогп Мипрег (+1) 
} 
// Значение терма 
Еопс®1оп уа1егтщ() 
{ таг &1 = хашл () 
уаг {2 
мр11е (с == "*") 
{ таг В =с 
с = сагзум () 
$2 = уа/мп () 
1 = &1 * 12 
‚о 
тесагп Мапфег (1) 
// Значение множителя 
ЕопсЕ10оп уа!тп () 
{ ЗЕ ((с >= "1") && (с <= "9")) 
{ уагх Р= Маопфехг (с) 
с = сагзум(); 
хесатп Мапрег (1) 


{ с = согэум () 

уаг + = уа1Еогт() 

1Е (с !=")") ег= фгае 

е15е { с = сигзум (); гебагр М№опег ($) } 
| 


е15е ег = $тае 


} 


// Установка начальных значений и вызов функции УЁЕоги 
ЕипсЕ1оп  ша1п(оЪ]) 
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{ 5Е = 095}.Е1.уа1ае 
1=-1 
ег = Ёа15е 
с = сатзум() 
г = уа1Еогт() ь 
1Е (ег || (1 != 36.1ераеБ)) 
а1егф ("Ошибка при задании формулы", "<Ьг>") 
е1зе оЪ).Егез.уа1ще = г 
} 
// Проверка работы описанных функций с помощью функции еуа1 
РипсЕ1оп фезЕуа1 (957) 
{ 3Е = 0оЬ].Е1.уа1ае 
г= е\а1 ($%) 
ор).6езе.уа1ае = г 
1Е (ег) 
а1егф ("Ошибка при задании формулы", "<рг>") 
е15е 
{ ор].Еезе.уа1ае = г } 
} 
//--> 
</зсг1р&> 
</НЕАО> 
<ВОПУ> 
<Р>Вычисление значения формулы методом рекурсивного спуска</Р> 
<рге> 
<РГОВКМ паще="Еогти1 "> 
Введите формулу: <1приЕ Еуре="Еехе" $12е=30 паще="Е1"><НВА> 
Значение формулы: <1приб вуре="6ехе" $12е=30 папме="ЁЕгтез"><НК> 
<1приЕ Еуре="Бае оп" уа1ле=Выполнить опС11ск="та1п (ЁЕогта1) "><НВ> 
Функция еуа1: <1приЕ суре="6ех®е" $12е=30 паме="$ез"><НВ> 
<1прие буре="раебоп" уа1ае=Проверка опС11скК="фез®&уа1 (Ёог1) "><НЕА> 
<1праЕ суре="гезее" уа]ае=Очистить ><НВ> 
</ЕОВМ> 
</рге> 
</ВоПУ> 
</НТМЬ> 
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Расчет сопротивления 
параллельно-последовательной схемы 


Применим метод рекурсивного спуска для решения следующей задачи. 
К наиболее простым и часто встречающимся типам соединения проводни- 
ков относятся последовательное и параллельное соединения. При последова- 
тельном соединении электрическая цепь не имеет разветвлений, все про- 
водники включают в цепь поочередно друг за другом. На рис. 18.5 показано 
` последовательное соединение двух проводников, имеющих сопротивление 
А: и К›. Полное сопротивление А при последовательном соединении опре- 
деляется следующим образом: 


К = А 1 + К.. 


Аналогичную формулу можно вывести для любого числа последовательно 
соединенных проводников. 


} 


Рис. 18.5. Последовательное соединение проводников 


На рис. 18.6 показано параллельное соединение двух проводников с сопро- 
тивлениями А; и А. Величина, обратная полному сопротивлению участка, 
равна сумме величин, обратных сопротивлению отдельных проводников: 


| | | 


в в В, 


Рис. 18.6. Параллельное соединение проводников 


Отсюда следует, что 
в- К хА, | 
К, + К, 


Аналогичную формулу можно вывести для любого числа параллельно со- 
единенных проводников. 


Предположим, что задана электрическая схема из резисторов (сопро- 
тивлений). Схема является параллельно-последовательной (далее, ПП- 
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схема), т. е. содержит только последовательные и параллельные соединения 
регистров. 


Формально понятие ПП-схемы можно представить следующим образом: 


О Один резистор является ПП-схемой. Сопротивление схемы равно сопро- 
тивлению единственного входящего в нее резистора. 


О Последовательно соединенные ПП-схемы являются ИП-схемой. Сопро- 
тивление схемы равно сумме сопротивлений последовательно соединен- 
ных схем. 


С Параллельное соединение ПП-схем является ПП-схемой. Сопротивление 
схемы вычисляется по формуле 


где А|, А), ..., К, — сопротивления параллельно соединенных схем. На рис. 18.7 
иллюстрируется понятие ПП-схемы. 


а 
к 
тая ее 


ПП-схема 


© 
ПП 


-схема 


Рис. 18.7. Вычисление сопротивления ПП-схемы 


Напишем программу, которая определяет полное сопротивление параллель- 
но-последовательной схемы. В последовательных и параллельных соедине- 
ниях участвуют, по крайней мере, две схемы. Величины сопротивлений за- 
даются целыми числами из диапазона [1; 9]. 


Изображение электрической схемы будем записывать по определенным пра- 
вилам в виде строки символов. Если схема состоит из одного проводника, 
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то задается число — величина сопротивления. Последовательное соединение 
схем будем задавать строкой вида (А1+А2+...+Ап), Где Аз — либо один про- 
водник, Либо электрическая схема. Параллельное соединение будем задавать 
строкой вида (А1*А2*...*Ап), ГДе А: — либо один проводник, либо элек- 
трическая схема. 


Такую задачу мы можем решить методом рекурсивного спуска. Предполо- 
жим, что мы написали функцию (назовем ее уг), которая обрабатывает по- 
следовательное соединение и вычисляет его сопротивление. Функция УЕ 
использует функцию УТ, которая обрабатывает параллельное соединение и 
вычисляет для него значение сопротивления. Функция Ут вызывает функ- 
цию ум, которая обрабатывает или схему из одного элемента, или произ- 
вольную схему. Так как в последовательных и параллельных соединениях 
участвуют, по крайней мере, два элемента, то описание схемы должно на- 
чинаться со скобки. 


НТМЕ-код приведен в листинге 18.4. 


фооорооороо оо ооо ово ооо ооо осо оо оо оо соо опоо ооо оес ооо чо о ооо осо ро ооо в ово фор ооо ово ооо оо ово ров оовороооро ово о чо оооообовооооо вов ооо оо ро ов ооо рсвооу воооооотьоооо со ь ооо сос ово 
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Листинг 18.4. Задача вычисления сопротивления ПП-схемы 


<НТМЬ> 
<НЕАО> 
<ТТТЬЕ>Задача вычисления сопротивления ПП-схемы</ТТТЬЕ> 


<5сг1ре ]1апацаде="Дауа5сг1р®"> 


<!-- // 
уаг с //Текущий символ анализируемой схемы 
уаг г 
уаг $ // Заданная схема 
уаг 1 


// Функция сагзум выдает очередной символ схемы 
ЕопсЕ1оп  сагзуп() 
{ 1=1+1; гебогпр $.срагАЕ (1) } 
// Функция еггЕога фиксирует ошибку 
ЕоапсЕ1оп еггЕогм (5$) 

{ аосамепе.мг1$е1п ('Ошибка при задании схемы: ',$) } 
// Функция УЕ обрабатывает последовательно соединенную схему 
// и выдает для нее значение сопротивления 
Еорсе1оп УЕ() 

{ уагх х 

уаг у 
У = УТ () // Значение первого элемента схемы 


\П11е (с ==!'!+') 
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{ с = сатзум () 
х = УТ() 
у = у+х 
} 
терагп у 


} 


// Функция УТ обрабатывает параллельно соединенную схему 
// и выдает для нее значение сопротивления 
Рарс®1оп УТ() 

{ таг х; хаг у; чаг 72; 


2 = УМ() 
у = 1/2 // значение первого элемента схемы 
мВ11е (с == '*') 

{ с = согзум(); х = УМ(); у = у+1/х } 
геёаги (1/у) 


} 


// Функция УМ обрабатывает схему из одного элемента 
// или произвольную ПП-схему 
Еарпс®1оп УМ () 
{ уаг х; уаг у; таг г 
уаг ср 
1Е ((с >='1') && (с<='9')) 
{ = 1*с 
с = сагЕ5ум() 


} 


е15е 
{ 1Е (с =='(') 
{ с = сагзум() 
х = УМ() 
ТЕ (1((с == '+') [| (с == "*'))) 


{ еггЕоги('Нет знака’) } 


е] зе 
{ ср =с 
с = сагзум() 
у = УЕ() 
1Е (ср == '+') 
{ г = х+у} 
е15е 


{ х= у/ (у/х + 1)} 
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ЗЕ (с !=')') 
еггЕоги('Нет закрывающей скобки’) 
е15е 


с = сагзупм() 


} 
е15е еггЕогт('Неверное начало схемы’) 
} 
тебагп г 
} 
// Инициализация глобальных переменных и вызов основной функции 
Еопсе1оп шпалпт (057) 
{ $= оБ).Е.ха1ае 
1=-1 
с = сагзум() 
г = УЁЕ() 
оЪ7.Егез.хуа1ае = г 
} 
//--> 
</зсг1ре> 
</НЕАО> 
<ВОрУ> 
<Н4>Вычисление сопротивления ПП-схемы 
методом рекурсивного спуска</Н4> 
<рге> | 
<РОВМ паще="ЁЕоги1"> 
Введите формулу: <1приЕ суре="$сехЕ" $12е=30 паме="Е"><НВ> 
Значение формулы: <1приф ф$уре="ЕехЕ" 512е=30 папе="Егез"><НВ> 
<1приЕ Еуре="Баееоп" уа]ае="Выполнить" опС11ск="та1п (Еоги1) "><НВ> 
<1праЕ суре="гезее" уа1ае=" Очистить "><НВ> 
</ЕОВМ> 
</рге> 
</ВорУ> 
</НТМГ> 


На рис. 18.8 приведен результат работы программы. Изобразите схему, ко- 
торая представлена строкой, и проверьте правильность работы программы. 
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Е Задача вычисления сопротивления ПП-схемы - Мистозой |Четпе! ЕхрГоге! 


| Файл Правка Ва _ Избранное _ Сервис _ Справка _ А. о ‚_ ве И 


Вычисление сопротивления ПП-схемы методом рекурсивного спуска | 


Введите формулу: 2+(((2+4+ 3)" ЗО +1+1))+5 


ААА А МАЛИНА Ум МАЛА оо ода Аладдин КУА ИА А ААА Алле рул Пталоакле оли лтд лье лечь холле аль лил 


к кА ААА моих алии, алло рат ем ЛЖ АЛ о АЛАЛАМАЛАЛУУАААА КАЛ А А у о мол у АЛ ЛЬ ААА ЗАКА ЛЧ Аль ль кл поле дель челом 


‚< Очистить 5 


рю ^^” ааа пу они резона ое 


Рис. 18.8. Пример работы сценария вычисления 
сопротивления заданной ПП-схемы 


Упражнения 


1. 


Напишите функцию, которая по формуле, содержащей однобуквенные 
идентификаторы, круглые скобки, знаки операций сложения, вычитания, 
умножения, выясняет, правильно ли построена формула. 


Напишите функцию, которая по формуле в префиксной нотации строит 
формулу в инфиксной нотации. 


Напишите функцию, которая по формуле в постфиксной нотации строит 
формулу в инфиксной нотации. 


Пусть формула строится из логических переменных, круглых скобок, 
логического отрицания, логического и, логического или. Напишите сце- 
нарий, который преобразует данную формулу в префиксную нотацию. 
Пусть формула строится из логических переменных, круглых скобок, 
логического отрицания, логического и, логического или. Напишите сце- 
нарий, который преобразует данную формулу в постфиксную нотацию 


Глава 19 


Решение 
локальных задач 


Расписание занятий 


Предположим, что занятия в некотором учебном заведении начинаются по 
мере комплектования групп. В анкете заполняется дата начала и конца ра- 
боты группы. Для проведения занятий по определенной дисциплине выби- 
рается день недели. Требуется написать сценарий, который формирует рас- 
писание занятий. 


После того как пользователь заполнил поля формы (рис. 19.1), указав дату 
начала и окончания занятий группы и день недели для проведения занятий 
по некоторой дисциплине, определяется дата первого занятия. 


$ Расписание занятий - МесгозоВ ижегпе! Ехрогеге № [@] 63 


и. 


||. Файл ° Правка ‘Вид Избранное Сервис” Справка |= | 


Формирование расписания занятий 


' Начало курсов 


число Г 
месяц [сентябрь "| 
_ под [2001 


п и Ал илом ми Г 


‘год [2001 


‘предмет 


мы 


‘день занятий 


' Сформировать | 


^. а в 


| =. ен ев Ч 


месяц октябрь | ы 


[информатика 


| понедельник * 


° Отменить ] 


арии 


Рис. 19.1. Расписание занятий 


Предположим, группа начинает работу 15 февраля 2001 года (четверг), а за- 
нятия по заданной дисциплине должны проводиться по средам. Дата пер- 
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вого занятия — 21 февраля. Далее формируется дата следующего занятия и 
проверяется, попадает ли сформированная дата в интервал времени, опреде- 
ленный для занятий, т.е. предшествует ли текущая дата дате окончания 
курсов. Далее формируется очередная строка таблицы расписания. Расписа- 
ние представляется в виде таблицы. Сначала в строковой переменной 51 
формируется заголовок таблицы. Дата очередного занятия представляет 
строку таблицы. В таблице будет столько строк, сколько занятий требуется 
провести с данной группой. Дата очередного занятия формируется в строке 
зсиг. После анализа дат построение таблицы завершается. В сценарии ис- 
пользуются массивы 1аепеЕ для хранения названий месяцев и 1Зау для хране- 
ния названий дней. В строке з формируется таблица с расписанием. НТМЕ- 
код, содержащий сценарий построения расписания, приведен в листинге 19.1. 


Н ОСОБО ов о о ОВ Во ро осо рос о ооо во ро о ооо ор по ооо ооо ооо ооо рвом о ро ооо о ово соо ров оо остов ооо ооо ооточвоо ооо отоосоочтосоо Воооооооотовооооовоново Фоовооооо Фоочевь хооовосоео р] 


| Листинг. 19. 1: Формирование. расписания занятий 


<НТМГ> 
<НЕАО> 
<ТТТЬЕ>Расписание занятий</ТТТЬЕ> 
<5сх1рЕ 1ападцаде="Фауа$ сг1р*"> 
<!-- // 
// Формирование по номеру названия месяца 
Ууат 1Ааепф=пем Аггау ("январь ", "февраль ", "март ", 
"апрель", "май", "июнь", "июль", "август", 
"сентябрь", "октябрь", "ноябрь", "декабрь") 
уаг 1Чау =пем Аггау ("воскресенье", "понедельник", "вторник", 
"среда", "четверг", "пятница", "суббота") 
// Формирование расписания занятий 
Еорсе1оп  газр(оЪ]) 
{ // Дата начала занятий 
уаг Ч= пем Рафе (ор).Беду.уа1ае, оЪ).Бедт.уа1ае, оь).Беда.уа]ще) 
// Дата окончания занятий 
уаг "= пем Рафе (оБ).епау.уа]ае, оБ].епам.уа1ае, оЪ].епаа.ха1ле) 
// дата текущего занятия 
уаг = пем Рабе (о5).Беду.уа1ае, оБ).Бедт.уа1ае, об). еда. уа]чце) 
уахг з="" 
уаг п=ор].а.уа1ще // Выбранный для занятия день недели 
уаг К=а.деерафе () +М№апбег (п) - Мипфет (а.деерау()) 
1ЁЕ (п < а. деЕрау()) 
К += 7 


// Определения даты первого занятия 
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{.зе{Пафе (К) 

// Формирование заголовка таблицы 

уаг 31 = "<р4 а11ап=сепеег>Расписание занятий</Б4>" 
31+="предмет <1><Ъ>"+оБ] .ргедмее.уа1ае+" </ь></1><г>" 
31+="<1>день занятий <р>" +19ау [М№атфег (п) ]+"</Ъ></1>" 


уаг ЗзНЕАО="<ТАВТЕ а]11ап=сеп&ег Богаег=3 — Бдсо1ог='4#ЕРЕЕЕСС"' 
се11ра9Я1па=3 се115рас1па=5>"+ "<ТВ><ЕВ>число </Е><ЕБ>месяц | 
</ЕВ><ЕВ>год </ЕВ></ТВ>" 


аосимепе.мг1фе ($НЕАО) 
уаг зсаг 
уахг $=$1 
// Поиск дат занятий 
и?11е (+.декУеаг () <= м.дефкУеаг ()) 
{ // Формирование текущей строки таблицы расписания 
зсиг="<ТВ а11ап=сепфег><Тр>"+ &.деера®е ()+"</ТО><Тр>"+. 
1Чепе[ &.чееМопЕй ()]+ 
"</ТО><ТО>"+Е .дефУеахг ()+"</ТО></ТВ>" 
1Е (Е.дебсуеаг () < м.дееУеаг ()) 
{ $+= эсаг } 
е15е 
{ 1Е (Е.деЕМопев() < м.деЕМопеВ ()) 
{ $ +=$5с4е } 
е15е 
{ 1Е (Е.чефМорЕВ () == м. адееМореВ ()) 
{ 1Е (Е. деерафе () <и.деераее ()) 
_ { э+=всаг } 
е1 зе | 
{ 1Е (Е.деЕрафке () ==м.деЕрате ()) 


{ $+= зсагк; БгеаКк } 


} 
К=е.деерПате () +7 
© .зеЕРаее (К) 
} 
1ЁЕ (5$==$1) 
а1егф ("Проверьте даты начала и конца занятий") 


е15е 
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аосимепе .мх1 фе (5+"</ТАВШЕ>") 
} 
//--> 
</зсг1рЕ> 
</НЕАО> 
<ВООУ> 
<Н4 а119п=сепеег>Формирование расписания занятий</Н4>` 
<РГОВМ папе="Еотт1"> 
<ТАВЬЕ рогаег=З3 а11ап=сепёег се1]раЯ991па=3 се11$рас1па=5> 
<ТВ><&П>Начало курсов</&В><%&Н>Конец курсов</&1></ТВ>. 
<ТВ><ТрО> 
<рге> 
число <1проё суре="Еехе" папе="реда" $12е=10> 
месяц <5е1есЕё папе="Ьеди" з1хе=1> 
<орЕ1оп уа1ие=0>январь 
<оре1оп уа1ае=1>февраль 
<орЕ1оп уа1пе=2>март 
<орЕ1оп уа1ае=З>апрель 
<орЕ1оп уа1ае=4>май 
<ор&1оп уа1ае=5>июнь 
<ор&1оп уа1ае=б>июль 
<орЕ1оп уа]ае=7>август 
<оре1оп уа1ае=8>сентябрь 
<ор®1оп ча1ие=9>октябрь 
<ор®&1оп уа1ае=10>ноябрь 


<оре1о0п уа1\е=11>декабрь 


</зе1есЕ> 
год <1праЕ $уре="$ехе" папе="Беду" 312е=10 уа1ае=2001> 
</рге></ТрЬ> 
_ <тр> 
<рге> 


число <1приф суре="фехе" паше="епаЯ" з12е=10> 
месяц <з5е1есе паще="епащ" з1хе=1> 
<оре1оп уа1ае=0>январь 
<ор*1оп уа1ае=1>февраль 
<ор®1оп уа1ще=2>март 
<ор&1оп уа1ае=З>апрель 


<орЕ1оп уа1ае=4>май 
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<оре1оп \уа1де=5>июнь 
<орЕ1оп уа1ае=б>июль 
<орЕ1оп уа1ае=7>август 
<орЕ1оп уа1ае=8>сентябрь 
<оре1оп уа]ае=9>октябрь 
<ор&1оп уа1ае=10>ноябрь 
<орЕ1оп уа]1ае=11>декабрь 
</зе1ес&> 
год  <1праЕ $уре="%ех®е" папе="епау" $17хе=10 уа1]ае=2001> 
</рге></ТрО></ТВ> ‘ 
<ТВ><ТО>предмет</Тр> 
<ТО а11ап=г1а9ре> 
<1праЕ фуре="$ехЕ" папе="ргедтее" $з12е=14 
уа1ае=информатика></ТО></ТВ> 
<ТВА><ТР>день занятий</ТЬ> 
<ТР а119п=г1аре> 
_<зе1есь пате= АЕ $1хе=1> 
<ор&1оп уа1ле=0>воскресенье 
<ор1оп уа1ае=1 зе1ескхед>понедельник 
<орЕ1оп уа]1ае=2>вторник 
<ор&1оп уа]дае=З3>среда 
<орЕ1оп уа1ае=4>четверг 
<ор&1оп уа1ае=5>пятница 
<орЕ1оп уа]1ще=б>суббота 
</зе1ес&> 
</ТО></ТВ> 
<ТВ><ТО а]119п=1еЁ*> 
<1приЕ фуре="Баевоп" уа1ие="Сформировать" 
опС11ск="газр (ЁЕотт1)"><Ьг> 
</Тро> 
<ТР а11ап=г196е> 
<1прае Еуре="гезее" уа1ае=" Отменить "> 
</ТО></ТВ></ТАВЬЕ>< /ЕОВМ></ВОБУ>< /НТМ1.> 


Для исходных данных, представленных в анкете (рис. 19.1), в результате вы- 
полнения сценария будет сформирована таблица (рис. 19.2). 
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Рис. 19.2. Пример сформированного расписания занятий 


Ведомость проведения занятий 


Напишем сценарий, в результате работы которого формируется ведомость 
проведения занятий. Пользователь в анкете задает дату начала и окончания 
семестра, выбирает день проведения занятий, может указать дисциплину, 
количество студентов в группе и номер группы. Ведомость представляет со- 
бой таблицу, в заголовке которой предусмотрены поля: номер записи, фа- 
милия студента, даты проведения занятий, отметка о зачете. 


В этой задаче в отличие от предыдущей динамически формируются сначала 
столбцы таблицы в зависимости от продолжительности семестра. Далее бу- 
дут сформированы строки таблицы. В каждой строке должна располагаться 
информация об одном студенте. 


Вычисление даты очередного занятия происходит так, как и в предыдущей 
задаче. 


Анкета для заполнения представлена на рис. 19.3. 


Приведем только сценарий решения задачи, необходимые пояснения со- 
держаться в тексте (листинг 19.2). 
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Пт И тия м\ 
ь >. 


| Файл. Правка _ ‚Вик "Уобранное_ и и д5 с ль. 2 


чем ожил нА плмллвлк > ей с оиы ЕО 


Формирование ведомости проведения занятий 


= дд! 


1 Дата! начала семестра Дата окончания семестра 


о - —————ды———————ыю—ыоыо——щ—мыщдщюы-——---: 


й ии 
|| число Го ' число р 
| месяц [февраль ы | ‚ месяц [чарт т] й 


[2001 [2001 


ол потолок олосил, Зое ад кл отлочилрлииьлех пали пар лтльлеслолимь отл лил. одета, толь пои тетотоне ны 
7 : 


| "Выберите день занятий [понедельник Я 


<5сг1ре 1апаоаде="Зауа$си1р*"> 
<!-- // 
уаг 1Аау =пем Аггау("воскресенье", "понедельник", "вторник", 


"четверг", "пятница", "суббота") 
// Формирование ведомости проведения занятий 
Еопсе1оп газр (057) 


{ // Дата начала занятий 
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"среда" , 


уаг А= пем Рае (ор) .Беду.уа1ае, оБ).Бедт.хаТае, об) .Беда.ха]ае) 


// Дата окончания занятий 


уаг м= пем Рафе (ор) .епау.уа1ае, оБ].епатм.уа]1ае, оЪ7.епаа.ха]1ае) 


// Дата текущего занятия 


уаг += пем Рафе (ор) .Беду.уа1ае, ор).Бедм.уа]ае, оЪ).Беда.уа1ае) 


уаг $="" 

уаг п=Мапрег (05) .Ч9Е.ха1ще) // Выбранный для занятия день 
уаг пп=Мапфег (ор7] .пимзф.уа1ае) 

уаг К=а.деераее () +М№ипрег (п) - М№опег (а. деЕрау ()) 

1Е (п < а.деерау()) 


недели 
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К += 7 

// Определения даты первого занятия 

$. зе{Пафе (К) 

// Формирование заголовка таблицы 

уаг $31 = "<р4 а119п=сепфег>Ведомость проведения занятий</В4>" 

$1+="<р>дисциплина<1><Ъ> "+ор) .ргедмее. уа1е+"</р></1></р>" 

$1+="<р><1>номер группы </1><Ъ5> "+оБ) .памахг.уа1ае+"</ь></р>" 
$1+="<1>день занятий "+"<р>"+1Чау [№опрег (п) ]+"</ъ></1>" 

Ууаг $НЕАО="<ТАВЬЕ а]11ап=сепфёег Богаег=3 расо]1ог='#ЕЕЕЕСС' "+ 
" се1]ра991па=3 се115рас1па=0>"+ | 
"<ТВ><ЕВ>номер</%&п><ЕП>фамилия</ЕН>" 

Чоситеп®.мгт Ее ($НЕАО) 

уаг $зсаг о 

уаг $=$1 

уаг пап=о 

// Поиск дат занятий 

\211е ($.дееУеаг() <= м.дефУеахг()) 

{ // Формирование текущей даты проведения занятий 
уаг поп= &.деЕМопЕВ ()+1 
уахг %епр-= ( (топ<10) ? ".0" :".") +топ 
зсиг="<(6>"+ 6.деЕрабе ()+%етр+"</&в>" 
1Е (&.чебуеаг() < м.деЕУеаг()) 
{ $+= эсаг; пам+=1} 
е15е 
{ 1Е (©. дееМопЕВ (} < м.деЕМопе\ ()) 
{$ +=5сиЕ; пам+=1} 
е15е 
{1Е (Е.деЕМопЕВ() == м.деЕМопЪВ ()) 
{ 1Е (Е. деЕрафе () <и.деерафе ()) 
{5 +=$сах; пиам+=1} 
е1зе < 
{1Е (Е.дефрафе () ==м.де®Паф*е ()) 
{5+= зсиг; пиш+=1; ргеак } 


} 


} 
К=ф.деерафке () +7 
с. зе Бафе (К) 
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ТЕ ($==$1) 
а1еге ("Проверьте даты начала и конца занятий") 
е]1 зе 
{ з+="<Еб>отметка о зачете</ев></тТвВ>" 
уах зп="" 
Рог (уахк 1=1; 1<=пп; 1++) 
{зп="<ТВ><ТО>"+1+"</ТрО>"+"<ТО> &пЬзр </ТО>" 
Гог (уаг }=1; )<=пам+1; 5++) 
{з1+="<ТЬ> &позр</ТО>" } 
$1+="</ТВ>" 
$+=$П 
} 
$+="</ТАВЬЕ>" 
Чосимепе.мгтте (5) 


аосимепе .мг1Ее ("<р а11ап=сепеег>Число занятий в семест- 
ре<ь>"+пим+"</б></р>") 


} 
} 
//--> 
</зсг1ре> 


а Ведомость проведения. занятий - Мистозой метле! Ехр/огег 


_ Файл _ Правка ‚Вид. __ Избранное _ _ Сервис. Справка и . 


Ведомость проведения занятий 
дисциплина информатика 
номер группы 192 


день занятий понедельник 


мел лалаило клталкт х  рмллАлАл оломой плзимилаилклллм чае ии олемилллллва ль, и солим рам мои ожил г ироко итеея" рлолкокллиликчикл поки хоры о акк чили ко лааыы | 
! 


‘номер фамилия |2. 02 в 02 26 02 5. 03 у 03 19. 03 26 03. отметка. 


‚© зачете _ 


! 


Число занятий в семестре 7 


Рис. 19.4. Пример сформированной ведомости 
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По тем данным, которые представлены в анкете на рис. 19.3, будет сформи- 
рована ведомость, вид которой представлен на рис. 19.4. После формирова- 
ния таблицы будет указано число занятий в заданном семестре. 


Если известны личности студентов (например, хранятся в каком-либо мас- 
сиве), то нетрудно изменить сценарий таким образом, чтобы фамилии рас- 
полагались в соответствующей строке ведомости. 


Ближайший праздник 


Напишем сценарий, в результате работы которого рассчитывается количест- 
во дней, оставшихся до ближайшего праздника. Если день праздничный, то 
формируется соответствующее поздравление. 


На рис. 19.5 приведен пример работы сценария. 


2% Календать событий. ВазКп А. - Мистозо._. [2х 
| Файт Правка Виа Избранное Саре > РВД 


До ГСентября - Дня Знаний 
осталось дней: 38! 


Июль 2001 | 
Чт Пт (Сб Ве 


: ВС 


В календарь занесены основные 
лраздники и поздравления к ним 


Рис. 19.5. Формирование календаря событий 


Кроме сообщения о праздничных датах выводится календарь, в календаре 
день, в который запускается сценарий, выделен цветом. 
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НТМГ-код приведен в листинге 19.3. 


<НТМЬ> 
<НЕАО><ТТТТЬЕ>Календать событий. Казк1п А.</ТТТЬЕ></НЕАО> 
<ВОРУ расо]1ог="#РВЕЗЕЕ" сехе="#000000"> 
<СЕМТЕВ> 
<1ТМС а]1ап=сепЕег 5ВС="ракее.а1Е" м1аей=164 Ве1ап*=164> 
<$сг1ре Гапацаде="Фауа$сг1ре"> 


<!-- 


// Переменные для хранения цвета различных элементов таблицы 


уаг 


уаг 


уаг 


уаг 


уатг 


СТодау="расо1ох='#ВВЕЕЕЕ'" 
СЕпреу="расо1отг='#00ССЕЕ"'" 
срау="расо]1ох= '#00ССЕЕ'" 
сСар="Ь9со]1ох= '#ЕЕАОАО"'" 
СТАВЬЕ="расо1ох=' #200000 '" 


// Празничный день 


уаг 


уат 


уаг 


уаг 


Но]11АауПау 
Но11АЧауМопей 
Но]1ЧауМате 
ТеЕе 


// Приветствие 


уаг 


Сопага®е 


// Текущая дата 


уаг 


уаг 


уаг 


уаг 


уаг 


уаг 


уаг 


соЧау=пе\м Пафе () 
Моп=фодау. дееМопе\ () +1 
Рау=еоЧау. еерате () 
сигграу=фоЯау.дееПа*е () 
саггМопЕП=Фоаау. чееМопЕЛ () 
соггУеаг=соаау .десУеахг () 


1 


ЕапсЕ1оп аггау (т0,п1,п2,п3,104,п5,пб, м7, п8,п9,г10,111.) 
{Е215[0]=п0; $61$[1]=01; 121$[2]=02; %1р1$[3]=03; 
$1$(4]=п4; %251$[5]=05; %01$[6]=06; +013[7]=п7; 
211$ [8]=п8; (01$ [9]=т9; %01$[10]=т10; 61015 [11]=011; 


} 


уаг попатез=пем аггау("Январь", "Февраль", "Март", "Апрель", "Май", 
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"Июнь", "Июль", "Август", "Сентябрь", 
"Октябрь", "Ноябрь", "Декабрь") 
// Количество дней в каждом месяце 
уаг Чауз=пем аггау(31,28,31,30,31,30,31,31,30, 31,30, 31); 
Еопсе1оп грау(реодау) 
{ уаг %Бау=реодау.дееПау(); 
УурРау=УВау-1; 
1Е (уБау==-1) УБау=б 
гегагп \%Рау 
} 
//Формирование приветствия 
Еапс®1оп СееНо] () 

{ уаг Но1МопеЮ=пем Аггау (1,1 ,2 ‚3, 4, 5, 5,.6,6, 9,11,12); 
уаг Но1Рауз= пем Аггау(7,13,23,8 ‚1, 1, 9, 1,12, 1, 7,31); 
уаг Но1Матез= пем Аггау ("Рождества", "Старого Нового Года", 

"23 Февраля", 
"8 Марта","1 Апреля — Дня Смеха", 
"] Мая — Праздника Весны и Труда", 
"9 Мая — Дня Победы", 
"] Июня — Дня Защиты Детей", 
"12 Июня — Дня Независимости", 
"] Сентября — Дня Знаний", 
"7 Ноября — Дня Примирения", 
"Нового Года"); 
уаг Но]Мом= пем Аггау(" с Рождеством! ", 

" с праздником <Бг>Старого Нового Года! ", 

" защитников Отечества <Ьг>с праздником 23 Февраля!", 

" женщин <Ьг>с праздником 8 Марта!", 

"с 1 Апреля <ЪЬг> — Днем Смеха!", 

"с 1 Мая <рг> — Праздником Весны и Труда!", 

" с 9 Мая <5г> — Днем Победы!", 

"с 1 Июня <Ьг> — Днем Защиты Детей!", 

"с 12 Июня <рЬг> — Днем Независимости России! ", 

" учащихся с 1 Сентября <5г> — Днем Знаний! ", 

"с 7 Ноября <Бг> — Днем Примирения! ", 

. " с Новым Годом! "); 
Бог (1=0; 1<=Но1МопеВ.1епаеВ; 1++) 
{ 1Е (Моп<=Но1МопеВ [1]) 
{ 1Е (Моп==Но1Моп® В [1]) 
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{ 1Е (Рау<=Но1Оауз$[1]) 

{ Но11Чауау=Но]1Пауз [1] 
Но11ЧауМопеВ=Но]1Мопе" [1] 
Но11ЧауМаме=Но1Мащез [1] 
Сопага*е=Но1Мом [1] 
ТтеЕ&=Но11Чаурау-Пау 


БгеаКк; 


} 
е15е 

{ Но11ЧаурВау=Но1Вау$ [1] 
Но]11АауМопЕВ=Но1МопеП [1] 
Но11ЧауМате=Но]Мапез [1] 
Сопага$е=Но1Мом [1] 
Ууаг Но1Рахе=пем ПРафе (фоЧау.дефУеаг (), 

Но11АауМопеВ-1,Но11Чаурау) 
ТеЕ=МафЬ . гочпа ( (Но1Ра*е .дееТате () - 
фодау.дееТ1нте ())/ (24000*3600)) 

Бгеак; 


} 
1Е (ТеЕб==0) 
Чосимепе.мг1 ее ("<р3><Т>Поздравляем всех "+Сопога*е+"</тТ></в3>") 
е15е 
Чосимепе .мг1е ("<р3><Т>До "+Но]1ЧауМаме+"<Ъг> осталось дней: "+ 
ЪеЕе+". !</тТ></ВЗ>") 
} 
// Построение календаря 
ЕорсЕ1оп зпомСа1епаахг (МопеЪ, Уеаг) 
{ аосомепе.мг1е ("<В><Т>"+топапе$ [Морг б]+" "+Уеаг+"</В><1Т>") 
Е1г5ЕРау=пем Расе (Уеах, Мопеп, 1) 
5фа’ЕРау=грау (Ё1г5%Рау) 


1 (((Уеах$4==0) && (Уеаг%$100!=0)) | | (Уеаг$400==0) ) 
Чауз$ [1]=29; 

е1зе 
Чауз [1]=28; 


Аосчщеп®.мг1е ("<ТАВТЬЕ "+СТАВГЕ+ 
" Са115$рас1п9=1 Се11РаЯ91па=1 Вогаег=1>"); 


14 Зак. 834 


406 Часть /!/. Решение вычислительных задач с использованием /ауа$спр 


аосимепе .мг1ее ("<ТВ"+сСар+ 
"><ЕН>Пн</ЕН><Е>Вт</ЕП><ЕВ>Ср</&В>"+ 
"<ЕП>Чт</&п><ЕП>Пт</ЕЬ><ЕВ>С6б</Ев><ЕВ>Вс</В></ТВ>") 
Чосопепе.мг1{е ("<ТВ а11ап=К1аВ®>"); 
уаг соТлатп=о 
Еог (1=0; 1<5$агЕБау; 1++) 
{ Чосомепе.мглее ("<ТЬ ", сЕпреу, ">&позр</ТО>"); 
сор ++; 
} 
Рог (1=1; 1<=аау$ [МопЕВ]; 1++) 
{ 1Е((1==сагграу) && (Мопеб==сатгМопеЬ) && (Уеаг==сагтУеаг)) 
{ аосамепе.мг1ее ("<Тр ", сТодау, ">", 1,"</ТЬ>") } 
е15е 
{ аосомепе.мг1е ("<ТО ", сБау, ">", "<5>"+1+"</в>", "</ТЬ>") 
} 
со1аип++; 
1Е (соаи==7) 
{ аосимере.мг1{е ("</ТВ><ТВ а119п=В190е>"); 


со1апп=0; 


} 
Чосимепе .мг1фе ("</ТВ></ТАВЬЕ>"); 
} 
//Тоаау=пем Рафе () 
СееНо1 (); 
эзпомСа1епааг (Ко4ау.дееМопер (),Коаау.дееУеаг())}; 
//--> 
</Зсг1рЕ> 
В календарь занесены основные праздники и поздравления к ним 
</ВОПУ> | 
</НТМЬ> 


Латинский квадрат 


Напишем сценарий построения латинского квадрата. В квадрате размером 
№ х № в каждой из клеток требуется поставить одно из чисел 1, 2,..., № так, 
чтобы сумма чисел, стоящих в каждом вертикальном, горизонтальном ряду 
и по диагонали, равнялась одному и тому же числу 1+2 +3 +... + №. 
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Разобьем окно документа на две горизонтальные области с помошью фреймов. 
В верхней части поместим условие задачи и форму для ввода размера таблицы. 
При нажатии кнопки ОК в нижнем фрейме будет помещен документ, содержа- 
щий таблицу, представляющую собой латинский квадрат (рис. 19.6). 


или, ре ЗНАЛ Арал памалльли ЛА, 


| Фа ‚Правка `В м - 


Задание на построение латинского квадрата 
В квадрате размером МхМ в каждой из клеток требуется поставить 
одно из чисел 1,2,..., М так, чтобы сумма чисел в любой строке, 
столбце и диагонали равнялась одному и тому же числу 1+2+...+М. 


Введите МП .- К 


о Е В В ‚10 т п т В вв ея 
3 8 2 ий 2 3 


78 9 бит 2 =” 
-| 


5 ре: 
ви бб 
оо 2 Е в 7 
Е 
ПН 
4 


межек римесмме ох 


8 9 1011 :1 
9 то 11 р 


9 бит 


2... 3. 
2 в в поп 2 
1 


57 
Е ЗО 
с ТИ. п 8 в ВИО в 


Рис. 19.6. Латинский квадрат для М = 11 


Для разбиения окна на две области требуется создать документ, описываю- 
щий фреймовую структуру. В данном случае документ имеет простую струк- 
туру и может быть задан, например, как в листинге 19.4. 


ФОЯРООС ООВ ООО ДВО В О Я О ООО ооо ооо ооо сор о оо рос вар чо ор ро ооо рос ово ров о ооо ооо оо вора оо ооо ово соо ос ооо ооо ооо воров ав ооо осо роса ооо ооо ор ооооооос ооо ооо второоховов осо оооооо - 
*- . . - - . . ® 


Листинг 19.4. Фреймовая структура для задачи 
| "Построение латинского квадрата". 


<НТМГ> 
<НЕАО> 


<ТТТЬЕ>Построение латинского квадрата</ТТТЬЕ> 
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</НЕАО> 
<Егатезее ВОИ5="35%, *"> 
<Егаще папе="1а аб" $ВС="Еотгливаь. В т1"> 
<Егате паме="роевом"> 
</Егашезек> 
</НТМЬ> 


Таблица формируется по строкам. Элемент, который заносится в таблицу с 
[-ым номером строки и /-ым номером столбца, определяется по формуле 
Маф . гоцпа (Мимьек ( (1+К-1+3*п-1)%0+1)), причем значение К зависит от 
того, четное или нечетное заданное значение я. При переходе к формирова- 
нию следующей строки происходит как бы циклический сдвиг предыдущей. 


Переменная оче предназначена для работы с документом, который загружа- 
ется в нижний фрейм, это обеспечивается выполнением присваивания 
оцЕ = Кор. Егапез [ 'рокфом'].Чосишепе. Применением к оп+ метода с1озе () 
закрывается поток вывода в документ. Метод ореп() открывает поток выво- 
да в документ. Далее в сценарии формируются элементы таблицы с помо- 
‚ ЩЬЮ методов иг1е() И мг1ке]1пт (), Например, так 


оп .мг16е]лт ('<ВОРУ 6дсо1отг=311уег><СЕМТЕВ>') 


Полностью НТМГ- код документа приведен в листинге 19.5. 


ооооррос ооо ооо ооо ооо оо ооо рос ооо ооо ссор о ооо ров ооо оо рос орот опоре ос ово ооо о ооо ото ороо ово о ов ооо ро ро ооо рос ооо оо ооо осо ооо оо ото воо ооо ооо ооо роросото ооо осо ооосо «< 
. 


: Листинг 19.5. Построение латинского квадрата 


<НТМГ> 
<НЕАО> 
<ТТТЬТЕ>Латинский квадрат</ТТТЬЕ> 
<5сг1р®е 1ападцаде="Фауазск1р®"> 
<!--// 
Еопс®1оп 301уефаь() 


{ ухаг п = М№опфег (аосамепе . Еогт$ ['ЁЕогт1'] .пом.уа1ае); 


уаг К 
1Е (п$2==0) 

к= Мапбех (п/2) 
е1зе 


к= Матфег ( (п+1)/2); 
уаг оцЕ = Кор. Егамез [ 'роёфош'] .аосатепе; 
ОЕ. с105е () 
оце.ореп () 
це .мг1е]1п ('<ВОШУ Бдсо1ог=5$11уег><СЕМТЕВ>'); 
це .мг1е]п ('<ТАВЬЕ Басо1ог=иб1е СО15='+п+' КОИ$='+п+ 
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' рогаег=3>'); 
Рог (1=0; 1<п; 1++) 
{ оаЕ.мг1Ее]1п ('<ТВ>'); 
Бог ()=0; )<п; 9++) 
{ още.мгтее]1л ('<ТО> '+МафВ. гоцпа (№апфег ((3+К-1+3*п-1)%$1+1)) + 
"')} 
оц. их1 ее] ('</ТВ>'); 
} 
ойе.мг1ее ('</ТАВЬЕ>'); 
оц .мг1е]1л ('</СЕМТЕВ><ВООУ>'); 


--=> 
</зсг1рЕ> 
</НЕАО> 
<ВОрУ> 
<1>Задание на построение латинского квадрата</1><г> 
В квадрате размером МхМ в каждой из клеток требуется поставить 
одно из чисел 1, 2, ..., № так, чтобы сумма чисел в любой строке, 
столбце и диагонали равнялась одному и тому же числу 1+2+...+М.<рг> 
<ГОВМ паще="Еотт1 "> 
Введите №: <1праоЕ паще="пам" ТУРЕ="Фехе" $12е=4> 
<1приЕ ТУРЕ="Баефоп" уа]щае=" ОК " опс11ск="зо1уекаь () "> 
</ЕОВМ> 
</ВОрУ> 


</НТМГ> 


Упражнения 


1. 


Задаются две литеры — латинская буква (от а до Йй) и цифра (от | до 8). 
Рассматривая их как координаты поля шахматной доски, на которой на- 
ходится выбранная пользователем фигура, напишите сценарий построе- 
ния шахматной доски с выбранной фигурой. Требуется указать все поля, 
которые "бьет" данная фигура (рис. 19.7). 


Напишите сценарий, который позволяет либо задать начальную расста- 
новку фигур на шахматной доске (рис. 19.8), либо расставить фигуры по 
указаниям пользователя. 


Пользоватезь должен иметь возможность переставлять фигуры на доске, 
указывая координаты начала и конца хода. На рис. 19.9 изображена ком- 
бинация после выполнения нескольких ходов. 
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$ Свезз Бома - МемозоН иене! Екрона о > И У 
Фым Правка Ва Переход Избранное _ Справка | | # | 


: . . 
Укажите поле шакматной доски 194 
Выберите фигуоу . 85 т} 


док, 


8 Расстановка Фигур на шахматной 


. Файл “Правка ` Вид Переход Избранное 


Рис. 19.8. Расстановка фигур при игре в шахматы 
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А Расстановка Фигур на шахматной доске: Мето. [53 


|| Файл. Правка `Вид Перенод Избранное Сл» МС 


Рис. 19.9. Комбинация фигур после выполнения нескольких ходов 


3. Пользователь на шахматной доске расставляет два ферзя. Укажите поля, 
на которые может пойти белый ферзь, чтобы не попасть под удар чер- 
ного. В сценарии предусмотрите случай, когда пользователь может про- 
извольно выбрать две фигуры и расставить их на шахматной доске. 


4. У белых на доске только король, у черных — король, конь, слон. Напи- 
шите сценарий, который осуществляет расстановку фигур на доске и при 
анализе ситуации характеризует положение белых с помошью слов "мат", 


шах", "пат", "обычная позиция". 


5. Напишите сценарий, который расставляет на шахматной доске 8 ладей 
так, чтобы ни одна из них не угрожала другой. 


6. Напишите сценарий, который расставляет на шахматной доске 8 ферзей 
так, чтобы ни один из них не угрожал другому. Один из вариантов рас- 
становки приведен на рис. 19.10. 


7. Напишите сценарий, который по заданному расположению одного ферзя 
расставит еще 7 так, чтобы ни один из них не угрожал другому. Если 
пользователь первого ферзя поставил на поле АЗ, то следующие фигуры 
будут расставлены так, как показано на рис. 19.11. 


8. Напишите сценарий, который выводит изображение шахматной доски с 
указанием порядка ходов, которые необходимо сделать коню для того, 
чтобы обойти все клетки доски, побывав в каждой из них только один 
раз. Пользователь может задать начальную позицию коня. Если началь- 
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‚ное положение коня — Аб, то последовательность обхода конем доски 
изображена на рис. 19.12. 


т лечевочащевея а Ч вает яна кт ру зов вотаньчь 44044492904 


.|г оставить ферзей >, 


Рис. 19.11. Расстановка семи ферзей при заданном положении восьмого 


И. 


12. 


13. 


< 
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2} Возд - Мегозой еглей Ехрю ^^ [9] <}: 
Вид Переход  Избрамное Справка. | #: | 


‚. Файп Правка 


° Обход конем шахматной доски 


15 05 | 


55 г: з 27 2 № 
з 4 07 
51 11 45 Е 
63 Е 23 33 

т} 5 №5 = 
37 47 09 

ы р Е р он в 


Рис. 19.12. Пример обхода конем шахматной доски 


Напишите сценарий, который расставляет на шахматной доске 12 ко- 
ней, таким образом, что каждое поле шахматной доски находится под 
ударом одного из коней. 


Напишите сценарий, определяющий такую расстановку 5 ферзей, при 
которой каждое поле будет находиться под ударом одного из них. 


Напишите сценарий, определяющий такую расстановку 8 слонов, при 
которой каждое поле будет находиться под ударом одного из них. 


Напишите сценарий, при работе которого устанавливается начальная 
комбинация при игре в шашки, либо подготавливается собственная. 
При этом пользователю предоставляется возможность выбрать шашки и 
установить их на соответствующее поле доски. Доска должна иметь 
стандартную нумерацию и раскраску. 


Лабиринт задается прямоугольной матрицей с целыми значениями. Раз- 
решается сделать ход только вниз или вправо на клетку с большим зна- 
чением. Определите, существует ли путь в лабиринте от клетки левого 
верхнего конца к правому нижнему. Напишите сценарий, который рису- 
ет лабиринт и найденный путь. 
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14. Лабиринт задается прямоугольной матрицей с целыми значениями. Раз- 
решается сделать ход только вниз или вправо на клетку с большим зна- 
чением. Определите, существует ли путь в лабиринте от заданного поль- 
зователем входа до заданного выхода. Напишите сценарий, который 
рисует лабиринт и найденный путь. 


15. Лабиринт задается прямоугольной матрицей с целыми значениями. Раз- 
решается сделать ход по любому из 4-х направлений на клетку с большим 
значением. Напишите сценарий, определяющий, существует ли путь в ла- 
биринте. Требуется нарисовать лабиринт и путь, найденный в нем. 


16. Магическим квадратом порядка п называется квадратная таблица размера 
пх и, составленная из чисел 1, 2, ..., И? так, что суммы по каждому 
столбцу, каждой строке и каждой из двух диагоналей равны между со- 
бой. Задается порядок п. Постройте магический квадрат порядка п. 


17. Задача о рюкзаке. Имеется т различных предметов, известен вес каждого. 
и стоимость. Определите, какие предметы надо положить в рюкзак, что- 
бы общий вес не превышал заданного значения, а общая стоимость бы- 
ла максимальной. 


Глава 20 


Формулы исчисления 
высказываний 


Общие сведения 


В предыдущих главах для самостоятельной работы предлагались упражне- 
ния, которые располагались в конце каждой главы. При выполнении уп- 
ражнения следовало написать сценарий решения некоторой задачи. В на- 
стоящей главе изложение материала будет изменено. Упражнение может 
быть предложено сразу после рассмотрения теоретического материала или 
примера, иллюстрирующего теорию. Кроме того, упражнения не обязатель- 
но предполагают создание сценария. Отдельно формулируется задание на 
создание сценария. 


Материал этой главы посвящен введению в один из разделов искусствен- 
ного интеллекта — автоматическое доказательство теорем. 


В обычной жизни человек принимает решения в зависимости от конкретной 
ситуации. Предположим, что нам известны некоторые факты (или ранее уже 


доказанные утверждения) Е, №, ..., Р,, и нас интересует, следует ли некото- 
рое утверждение С из утверждений А, К, ..., Р,. Утверждение, что С логиче- 
ски следует из утверждений А, Р, ..., Р, называют теоремой. Доказательство 


теоремы — рассуждения, позволяющие установить, что теорема верна. 


Математическая логика — наука о правильных математических рассуждени- 
ях, о математическом мышлении. Впервые правила рассуждений системати- 
зировал Аристотель. Однако как наука математическая логика сложилась 
лишь в середине ХХ века, когда Джордж Буль ввел логические связки и 
исчисление высказываний. Математическая логика изучает: 


С структуру математических высказываний; 

С исходные постулаты математики (аксиомы и правила вывода); 
(С математические доказательства (выводы); 

О истинные математические утверждения (теоремы, леммы). 


и многое другое. Одной из задач математической логики является формали- 
зация понятия доказательства. 


Для описания утверждений можно использовать формулы исчисления выска- 
зываний. Каждое высказывание либо истинно, либо ложно. Можно строить 
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составные высказывания, используя логические связки: отрицание (-), конъ- 


юнкцию (&), дизъюнкцию (\), импликацию (>) и эквивалентность (<). 
Логические константы "истина" и "ложь" будем обозначать буквами И и Л 
соответственно. Логические переменные (в математической логике их назы- 
вают пропозициональные переменные) будем обозначать большими буквами 
латинского алфавита. 


Унарная связка - меняет значение высказывания на противоположное. 
В табл. 20.1 представлены результаты логических связок таблицы истинности. 


Таблица 20.1. Таблица истинности бинарных связок 


А В А&В АуВ А>В АВ 
и и и и и и 
и Л Л и Л Л 
Л и Л и и Л 
Л л Л Л и и 


В исчислении высказываний логические константы и логические перемен- 
ные называются атомами и считаются простейшими логическими формула- 
ми. Кроме атомов логической формулой считается отрицание логической 
формулы, а также (АФР), где А, Е — логические формулы, а знак Ф обо- 
значает одну из бинарных логических связок. Других формул в исчислении 
высказываний нет. 


Мы видим, что при построении сложных логических формул появляется 
большое количество круглых скобок. Для сокращения их числа можно ис- 
пользовать старшинство логических связок. Самой старшей является унар- 
ная связка "отрицание", которая выполняется в первую очередь и применя- 
ется к непосредственно следующей за ней формуле. Бинарные логические 
связки, приведенные выше в таблице истинности, перечислены по убыва- 
нию их старшинства. Связки одного старшинства применяются в порядке 
их следования слева направо. Если учитывать старшинство операций, то 
часть скобок можно опустить. Например, формула 


(((Ра-О=Ю= (Р&юЮ) 
может быть записана вообще без скобок: 
Р& -О-А-Р& К. 


Формулу исчисления высказываний будем называть постоянной, если она не 
содержит переменных. 


Для того чтобы вычислить значение постоянной формулы 
И&-Л>5И=>И&И. 
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расставим в ней скобки и получим следующую формулу: 
(((И&-лЛ) И) = (И&И)). 


Далее, вычисляя сначала выражения в скобках по таблице истинности, по- 
лучаем значение всей формулы — истина. 


Упражнения 


1. Вычислите значение следующих формул исчисления высказываний: 
е (ИЛ) -И) & И=э(И5Л)) Л; 
е (И(ИФлЛ) &-Л: 
е (И>(Л-И)) © -(Л&И.. 


2. Предположим, что мы разговорились с тремя жителями А, Ви С, о каж- 
дом из которых известно, что он либо рыцарь, либо лжец. Рыцари всегда 
говорят правду, лжецы всегда лгут. Двое из них (Аи В) высказали сле- 
дующие утверждения. 


е АД: Мы все лжецы. 
» В: Один из нас рыцарь. 
Кто из трех жителей А, Ви С рыцарь и кто лжец? 


Запишите утверждения жителей острова с помощью формул исчисления 
высказываний. 


Вычисление значения постоянной 
логической формулы 


Создадим сценарий, который облегчает ввод постоянных пропозициональ- 
ных формул. При нажатии кнопки, соответствующей логическим констан- 
там или логическим операциям, определенная операция появляется в поле 
ввода так, как показано на рис. 20.1. После построения формулы и нажатия 
кнопки Вычислить определяется значение формулы. 


Напомним, что при построении логических формул в языке Лауазсире раз- 
решено использовать три логические операции: отрицание (!), логическое И 
(&&) и логическое ИЛИ (11). При нажатии кнопки соответствующая опера- 
ция появляется в текстовом поле, причем знак операции должен быть тем, 
который принят в языке Лауа$ сир. Подобная формула может быть вычис- 
лена, если подать ее в качестве параметра методу ета1. Если же формула 
содержит знаки импликации (=>) и логической эквивалентности (<=>), то 
требуется провести анализ формулы и вычислить ее значение с помощью 
определяемых программистом функций. НТМГ-код документа, содержащего 
сценарий решения задачи, представлен в листинге 20.1. 
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п ия ела 


(((сЕме && 'Ёа13е} => сгце) => (сгае 4& ^ 
1а13е) 


о ыЧИСлитЬ 


Значение формулы: [ие — 


И И НГ рр 
Е ГЕ ИМИ. 


Рис. 20.1. Построитель постоянных логических формул 


] Листинг 20.1. Значение постоянной логической формулы г” г —. 
<НТМГ> 
<НЕАР> | 
<ТТТЬЕ>Значение постоянной логической формулы. (Лямов К.) </ТТТЬЕ> 
<5сг1рЕ> 
<!-- // 
уаг роз = 0; 
уаг 1ех; 
уаг Еа]1зебум = "ЁЕа]5е"; 
уаг Егаебум = "$ гоае"; 
уаг поЕбум = "!"; 
уаг апабум = "&&"; 
уаг огбум = "||"; 
уаг 1рбум = "=>"; 
уаг еаабум = "<=>"; 
// Вычисление значения формулы 
Еопс®1оп еуа]}аа$еРогто1а () | 
{ ро$ = 0; 
Аосимеп* .тпуРГога. гези1е.уа1ае = уа1Еогто1а () 
} 


Еаорсетоп ада ($%г) 
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{ Зоситепе .муРогт. 1оаЕогита.уа1е += э6:} 
.// Выбор для анализа следующего символа - 
ЕапсЕ1оп пехЕбум() | , 
{ ха’ ='!; 


мВ11е (+ == ' ' 85 роз < 
Ааоситепе .пуЕГогт. 1оч9ЁГотгта1а.хуа]1ще. 1епа ЕП) 


{Е = аосимеп®е .муГоги. 1одГогиа]а.уа]ще.спагА® (ро$++) } 
гееауп (; 
} 
// Анализ очередной лексемы 
Еопсе1оп пехёГех () 


{ уаг &тр = пехёЗут(); 


$м1ЕсП (пр) 
{ сазе '&': роз++; тесагп апабуц; 
сазе '|': роз++; гебагп огбуй; 


сазе '<': ро$+=2; геЕагп еаабущ; 
сазе '=': ро5$++; гебагп 1прбуп; 
сазе '%': роз += 3; геЕогп Е гаебум; 
сазе 'Ё': роз += 4; гебагп Еа15ебуп; 


ЯеЁац1*: гебагп (пр; 


} 
// Вычисление значения логической эквивалентности 
Ропсе1оп уа1Еоттаа1а (). 
{ уаг 1еЁ®, г1орЕ; 
1еЁЕЕ = уа1ТШир(); 
мй11е (1ех == еаабуп) 
{ гзорЕ = уаТГир(); 
1еЕЕ = ((1еЕё) == (г19р®)); 
} 
гебогп 1еЕ%; 
} | 
// Вычисление импликации 
ЕопсЕ1оп уа1Тир () 
{ уаг 1еЕ®, х1оВе; 
1еЕЕ = уа151тр1е(); 
ие (1ех == ишрбум) 
{ хзларЕ = уа15$1тр1е (); 
1еЕЕ = (!(1е2%) || (х1аье)) } 
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гебагп 1еЕ%; 
} 
Еопс&1оп \уа151тр1е () 
{ хаг $ = ""; 
имр11е (Егае) { 
1ех = пехЕГех(); 
//а1еге ("ТЪех: "+1ех); 
$м16сП (1ех) 
{ сазе Егаебум: 
сазе Ёа1зебум: 
сазе апа5ум: 
сазе огбум: 
сазе поЕбум: з += 1ех; 
сазе ')': Ьгеак; 
сазе '(': уаг у = еуа1($ + уа1Еогта]а()); тгебогп у; 
ЧеЁац1*: гебагп еуа1 (5); 
} 
} //мЬ11е 
} //уа1$1тр1е 
//--> 
</зсх1р®Е> 
</НЕАО> 
<ВОРУ расо1ог="ЕВЕЗЕЕ"> 
<Н4>Значение постоянной логической формулы</Н4> 
<РОЁМ патме=муГотта> 
<фехфагеа со1$=40 гомз=3 паме=1]одЕогто1а></кехкагеа><Ьг> 
<1праЕ Еуре=рабФоп уа1ае="® гие" опС11ск="адА ('Егае') "> 


<1праЕ Еуре=раеФоп уа1ае="ЁЕа15е" опС11ск="а@А ('ЁЕа15е') "> 


<1прае суре=БаЕеоп уа1ае=" ! " опС11ск="ааа('!')"> 

<1прие суре=раееоп уа1ае=" & " опС11ск="ааа(' && ')"> 
<1праЕ Еуре=рабфоп уа1ие=" у " опС11скК="ааа(' || ')"> 
<1прие суре=раЕЕоп уа1ае="=>" опС11ск="ааа(' => ')"> 
<1приЕ $уре=рае®оп уа1ае="<=>" опС11ск="ааа(' <=> ')"> 
<1прие суре=раЕ®оп уа1ае=" ( " опС11ск="ааа (' (')"> 

<1прие буре=рае®оп уа1ае=" ) " опС11ск="ааа(')')"><Бт><рг> 


<1праЕ Еуре=раебоп уа1ае="Вычислить" опС11ск="еуа]дакеГогтаа]а ()"> 
<1прие буре=раефоп уа1ае="Очистить" 


опС11ск=" аосимепе.муЕотгт. 1оаЕогиа]а.уа1ще = ''; 
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Чосимепе.муГоги. гез\11$.уа1ае = '' "><рг><рг> 
<В>Значение формулы: </В> <1прае суре=еех®е патме=гезо1® $12е=5> 
</ЕОВМ> 
</ВорУу> 
</НТМГ> 


Если задать значения всем входящим в формулу переменным, то можно вы- 
числить результат всей формулы. В этом случае говорят, что задана интер- 
претация. В исчислении высказываний каждой формуле соответствует ко- 
нечное число интерпретаций. 


Вычисление значения формулы 
в заданной интерпретации 


Необходимо написать сценарий вычисления значения логической формулы 
в заданной интерпретации. Пусть при построении формулы используются 
только три переменные а, 6, с, значения которых указывает пользователь. 
Для ввода логической формулы применяется построитель формул так, как 
показано на рис. 20.2. _ 


ее Заданная интерпретация - Месгозой пн пе! 


|| Файл Правка | "Вид. Переход Избранное Спрае 


Введит е логическое выражение. 


(а Г 611 с) && (а => Б ||! && 1!с 


12] 8] +] 5] >] 
а= @ бе С це 
= Се © ние 
с = Се “® не 


Результат = Газе 


_-1 3 Мой компьютер: 


т { . 
ч.. ; 3 } ы ры 


Рис. 20.2. Значение формулы 


Полностью написать сценарий предлагается в качестве упражнения. 
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Соотношение формул 


В общем случае при анализе формулы следует учесть количество различных 
переменных, входящих в формулу. Так как каждая переменная может при- 
нимать только два значения, то число различных интерпретаций конечно. 


Формулы бывают тождественно истинными (или общезначимыми) — это 
формулы истинные в любой интерпретации. Тождественно ложными (или 
противоречивыми) называются формулы, ложные в любой интерпретации. 
Наконец, выполнимыми называются формулы, допускающие указание интер- 
претации, в которой эта формула истинна. Если две формулы имеют одина- 
ковые значения при любых возможных интерпретациях, то говорят, что они 
равнозначны или эквивалентны. Равнозначность формул обозначают знаком 
<>. Обозначим знаком № любую общезначимую формулу и знаком П любую 
противоречивую формулу. Наиболее распространенные равнозначные фор- 
мулы приведены в табл. 20.2. 


Таблица 20.2. Равнозначные формулы 
Формула | Формула 
А Ве › (-- АмВ) & (- ВУА) 
(А> В) > ^ АуВ 


Ау(ВуС) <> (АуВуСс А&(В&С) <> (А&В) & С 
АуВ‹>ВУА | А&ВоВ&А 
Ау(В&С) <> (Ам В) & (Ау С) А & (ВуС) <> (А& Ву (А&С) 
^ (А) > А 

Ау^А<> № А&-^А->ОП 

АуП о А АЗ > П 

Г А&МА 


^^ (АуВ) > А&л В < (А& В) > - Аул В 


Нетрудно доказать, что любую формулу исчисления высказываний можно 
преобразовать к равнозначной формуле, которая содержит только три логиче- 
ские связки: отрицание, конъюнкцию и дизъюнкцию. Действительно, доказав 
равнозначность формул А = Ви -Ам В, а также формул А = Ви (А & В) у 


у (-А & -В), получим то, что требуется. Некоторые часто используемые 
правила получили специальные названия, например: 


С закон двойного отрицания: - - А <> А; 
С закон контрапозиции: А = В%- В=>- ИА; 


О законы де Моргана: - (Ам В) > -А&-Ви - (А& В -Ау- В. 
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Пусть заданы две формулы (А = В) > Си А> (В > С). Требуется опреде- 
лить, эквивалентны ли они. Для того чтобы решить задачу, мы переберем 
все интерпретации и в каждой из интерпретаций вычислим значение фор- 
мулы. Результаты приведены в табл. 20.3. 


Таблица 20.3. Таблица истинности для формул (А = В) = СиА- (В = С) 


№ А В с (А>В)-С А-(В->С) 
1 И И И И И 
2 И И Л Л Л 
3 И Л И И И 
4 И Л Л И И 
5 Л И И И И 
6 Л И Л Л И 
7 Л Л И И И 
8 Л Л Л Л. И 


После вычислений видно, что значения формул не совпадают в некоторых 
интерпретациях, поэтому заданные формулы неравнозначны. 


Построение таблицы истинности 


Напишем сценарий, который для логической формулы строит таблицу ис- 
тинности. В формуле разрешено использовать операции отрицания, дизъ- 
юнкции и конъюнкции; переменные представляются буквами латинского 
алфавита. Вид документа представлен на рис. 20.3. 


Е Е: ЛОНКЕ\ОМУ\МЕВ Чаа5сир\Последи | 


И Фе „Правка ‘Ва ` Переход _Иобранио 


Введите формулу 


| [бамь)ме — 


Можно использовать следующие символы: 
Га.ц,м..2,А. Ц \/.2} - одиосимвольные переменные 
#!- отрицание 

& - логическое И 

7- логическое ИЛИ 


‚ Таблица истинности. | 


дания рыл 


Рис. 20.3. Формирование таблицы истинности для заданной формулы 
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Если после ввода формулы нажать кнопку Таблица истинности, то будет вы- 
ведена таблица, в которой указаны все возможные интерпретации и значе- 
ние формулы в каждой интерпретации. Для формулы, введенной в строку на 
рис. 20.3, будет сформирован следующий: документ, содержащий таблицу 
истинности (рис. 20.4). 


| Исходная формула: (1ачб)ус 
таблица истинности 


у р В 
ими гл Го ямка аиллиаль ре пелоклклкклияалим | 


Нло ое 


ве ле | 


плз Ве ве 


ри м ру ммжлх 


| 
| ПЕ | кое 


ле _ Вве. 


аве | кое | 


‚Вызе_ Е цве 5 ее | 


алюм пекли чачал м одела в да маи казаки клалела Алана ААдАЛАА А 


Возврат 


с оеильтиоьти. Арал ртлкдзиеелиолимятмеем о ыыя 


т ПЕУм Мой. компьютер. ви в 


Рис. 20.4. Таблица истинности для заданной формулы 


НТМГ-код документа, который по заданной формуле строит таблицу ис- 
тинности, приведен в листинге 20.2. 


Листинг 20.2. Построение таблицы истинности = | | 
<«НТМЬ> 
<НЕАО> 


<ЗСВТРТ 1апацаде="Фауа5сг1ре" згс="кеги. 1$"></5СВТРТ> 
</НЕАО> 


<ВОРУ расо]1ог="ЕЗЕЗЕЕ"> 
<ГОВМ папе=Чафа> 
<Н4>Введите формулу</Н4> 


<1приф всуре=Еехе $12е=30 паше=Ёогиа1а уа1ае="а&БУс&Ь"><Ьг> 
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<эпа11><1>&п55р;Можно использовать следующие символы: <рг> 


&пб5р; [а..и,м..2,А..О,И..2] — односимвольные переменные<Ьг> 
&по5зр;! — отрицание<рг> 

&пзр;& — логическое И<рг> 

&пр5зр;У — логическое ИЛИ<рг> <рг> 


<1праё суре="рафоп" уа]це="Таблица истинности" 
опс11ск="ТАВЬЕ () "><рг> 
</ЕОВМ><Ьг> 
</ВОПУ> 
</НТМТ> 


Функция, осуществляющая построение таблицы, хранится во внешнем фай- 
ле. Содержимое файла приведем позже, а пока рекомендуется написать сце- 
нарий в качестве упражнения. 


Упражнение 


Для каждой из следующих формул определите, является ли она общезначи- 
мой, противоречивой или выполнимой: 


= (7 (Рэ 0)) = (Рэ 9 

- (Р&ТУЮ--Р 

(Р- О&В&Т) = (- (О&&Т-рР 
Ру(#-0& 71, 

Ру (Р& Е- О& В) 

- Р> (РуТУА&В 


оОо6о,.,о,.оо 


Определение выполнимой, общезначимой 
и противоречивой формулы 


Напишем сценарий, который определяет, является ли заданная формула 
выполнимой, общезначимой или противоречивой. Для простоты будем счи- 
тать, что в формуле используются операции отрицания, конъюнкции и 
ДИЗЪюЮНкции. 


При анализе формулы перебираются интерпретации. Вычисляется значение 
формулы в начальной интерпретации, а затем, если при переходе к следую- 
щей интерпретации значение формулы изменилось на противоположное, то 
она выполнима. Если же при всех интерпретациях значение формулы не 
изменилось, то она либо общезначима, либо противоречива. Результат вы- 
полнения сценария приведен на рис. 20.5. 


426 Часть !!/. Решение вычислительных задач с использованием Уауа$спрЕ 


Исходная формула: |((!1(1еМт)Уе)& (ее та)))Уе 


Формула является: 
Общезначимой 


ср рено ди ить очеНор оо ЗЬ И М в счеяь в. 4 2 чемькл, лк 
#14 ОЕ Вии хх т - . 1 м7. 


ое роже ни имени» ее а т, 
2. 18) Мой компьютер: а СИ 


Рис. 20.5. Определение типа формулы 


Если формула выполнима, то кроме определения типа формулы требуется 
построить таблицу истинности. 


НТМЕ-код приведен в листинге 20.3. 


: Листинг 20.3. Формула выполнимая, общезначимая, противоречивая с 
<«НТМЕ> 
<НЕАР> 


<5сх1рЕ ]1апдчаде="дауа$ сглр®" згс="$егт.1з"></ЗСВТРТ> 
</НЕАО> 
<ВОрУ> 
<ГОЕМ папе=аафа> 
<Ь>Введите формулу </Б> 
<1праЕ суре=еехе $з12е=30 паще=Естиа]а уа]ае="а&БУс&ю"><рг> 
<зта11><1>&прзр;Можно использовать следующие символы: <ртг> 
&прзр; [а..и,м..2,А..О,И..2] — односимвольные переменные<рг> 
&прзр;! — отрицание<Ьг> 
&прзр;& — логическое И<рг> 
&прзр;У — логическое ИЛИ<рЕ><рг> 
<1прие Куре="роЕбоп" уа]ае="Тип формулы" 
опс11ск="Еогиа1аТуре () "><Ьг> 
</ЕОВМ><Ьг> 
</ВОрУ> 
</НТМГ> 


Как и в предыдущем случае, функция, осуществляющая анализ формулы, 
хранится во внешнем файле. 
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Логическое следствие 


При решении многих задач нас интересует, следует ли некоторое утвержде- 
ние из ранее доказанных или уже известных. Мы введем понятие логиче- 
ского следствия и с его помошью решим некоторые задачи. 


Пусть даны формулы А, ВБ, ..., РА и формула С. Говорят, что С логическое 
следствие формул Е, Р, ..., Р, (или С следует из В, ВБ, ..., Ри) тогда и только 
тогда, когда для всякой интерпретации /, в которой истинны утверждения Ё, 
В, ..., Е» утверждение С также истинно. Утверждения Е, №, ..., Е, называют 
аксиомами (постулатами или посылками), утверждение С — следствием. 


Представление утверждений 
формулами 


Предположим, что некоторый человек вас спрашивает: "А верно ли, что ес- 
ли вы любите Бетти, то вы также любите и Джейн?" Вы отвечаете: "Если это 
верно, то я люблю Бетти". Вопрос звучит так: "Любите ли вы Бетти?" 


Запишем утверждения формулами исчисления высказываний, обозначив 
через В утверждение "Я люблю Бетти", через р — "Я люблю Джейн". Тогда 
посылка (утверждение "Если это верно, то я люблю Бетти") запишется фор- 
мулой: | 


(В=> р) = В). 


Предполагаемый ответ (следствие) — формулой В. Переберем возможные 
значения переменных Ви 0, вычислим значения формул Ки С. Получен- 
ные данные оформим в виде табл. 20.4. 


Таблица 20.4. Таблица истинности для формул ((В = 0) = В)иВ 


В О Е: ( (В =>0) >В) С: В 
И И И 
и Л и 
Л И Л — 
Л Л Л — 


Нас интересуют только те интерпретации, в которых формула РЁ истинна. 
В этих интерпретациях истинна и формула С. Согласно определению фор- 
мула С — логическое следствие формулы Ё. Таким образом, мы выяснили, 
что ответ на вопрос "Люблю ли я Бетти?" — положительный. 
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Задача о хищении 

На складе совершено хищение. Подозрение пало на трех человек: А, Ви С. 
Они были доставлены для допроса. Установлено следующее: 

С никто, кроме А, В, С, не был замешан в деле; 


С) подозреваемый А никогда не ходит на дело без, по крайней мере, одного 
соучастника; 


(0 Сневиновен. 
Виновен ли В? 


Запишем приведенные утверждения с помощью формул исчисления выска- 
зываний. На основании определения логического следствия выясним, явля- 
ется ли ответ на вопрос логическим следствием этих трех утверждений. Обо- 
значим через А утверждение "А виновен", через В — "В виновен", через С — 
"С виновен". Запишем утверждения 1—3 с помощью формул Е—Ё исчис- 
ления высказываний: 


ОЛ: Ау ВуС 

ОБ: А ВуС 

О Б:-С 

Предполагаемый ответ — "В виновен" — обозначим через С. Проверим, яв- 
ляется ли формула С логическим следствием формул А, Р, В. С помощью 


табл. 20.5 переберем интерпретации и для всех укажем значение каждой из 
формул Ё, Р, Ё3 в этой интерпретации. 


Таблица 20.5. Таблица интерпретаций для формул Е 1, Е2, ЕЗ 


№ А В С Р;:АуВуУуСс РА > ВуС Р:-С @:В 
1 и и И И И Л 
2 и и пл и и и И 
3 И Л И И И Л 
4 И Л Л и Л И 
5 Л И И И И Л 
6 Л и Л И И И И 
7 Л Л и и И Л 
8 Л Л Л Л И и 


Как и в предыдущем примере, нас интересуют только те интерпретации, в 
которых все посылки (формулы Е, Р, №3) истинны. Таких интерпретаций 
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только две — вторая и шестая. В этих интерпретациях и значение формулы 
С истинно. Следовательно, формула С — логическое следствие, т. е. обви- 
няемый В виновен. 


Упражнение 


На этот раз на допрос были вызваны четыре подозреваемых: А, В, С, О. Бы- 
ло доказано, что, по крайней мере, один из них виновен и никто кроме А, 
В, С, ) в ограблении не участвовал. Кроме того, удалось установить сле- 
дующее. 


С А безусловно невиновен; 
О если В виновен, то у него ровно один соучастник; 
С если С виновен, то у него ровно два соучастника. 


Кто же из подозреваемых граждан виновен? Докажите это, воспользовав- 
шись понятием логического следствия. 


Теоремы о логическом следствии 


Теоремы о логическом следствии позволяют решение вопроса о том, являет- 
ся одно утверждение следствием других, свести к анализу общезначимости 
или противоречивости некоторой формулы. 


Теорема 1 
Пусть даны формулы Е, №, ..., Е, и формула С. Тогда формула С является 
логическим следствием формул А, Ё№, ..., №, тогда и только тогда, когда 
формула 

Е&Р&... & А> С 
общезначима. 


Доказательство. Предположим, что С— логическое следствие. Возьмем 
произвольную интерпретацию /. Формула Е & ВР & ... & Е, может быть ли- 
бо истинной, либо ложной в этой интерпретации. 


Рассмотрим сначала случай, когда эта формула истинна. Тогда истинны и 
все формулы Ё.. Так как формула С — логическое следствие, то она истин- 
на, если истинны посылки. Таким образом, и вся импликация 


ар&.&Е С 
ИСТИННа. 


Если же формула Е & ЁР & ... & Е, ложна в выбранной интерпретации, то, 
независимо от значения формулы С, рассматриваемая нами формула 


Е&Е&..&Е = С 
ИСТИННа. 
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Мы выбрали произвольную интерпретацию и доказали, что исследуемая форму- 
ла в ней истинна. Таким образом, если С — логическое следствие, то формула 


А& Р&... & Е >С 
общезначима (или тавтология). 
Предположим теперь, что формула 

Е&Р&... & Е > С 


общезначима. Докажем, что формула С логическое следствие формул А, Р, ..., 
Е„. Нас интересуют интерпретации, в которых истинны посылки. Выберем 
одну из них. В этой интерпретации истинна формула А & Р & ... & Е. Так 
как формула | | 


Н&БР&.. & Е >С 


общезначима, то она истинна и в выбранной нами интерпретации. Тогда 
формула С также должна быть истинной. Теорема доказана. 


Теорема 2 

Пусть даны формулы А, ЮР, ..., Е, и формула С. Тогда формула С является ло- 

гическим следствием формул А, ВЮ, ..., Е, тогда и только тогда, когда формула 
Е& Р&... & Е&ТС 

противоречива. 


Доказательство. Согласно теореме | формула С является логическим следст- 
вием тогда и только тогда, когда формула 


Е & Р & ... & Е, > С 
общезначима. Формула 
Н& Б&... & ЕС 


является общезначимой тогда и только тогда, когда ее отрицание противо- 
речиво. Выполним эквивалентные преобразования формулы - (А & Р & ... 


& Е, > (): 
- А& Б&... & Еэ0ео-(-(Е& Б&...& учу бъ- 
2 Н&Ь&... & Е &- С. 


_ В результате преобразований получили требуемую формулу, и она противо- 
речива. Следовательно, теорема доказана. 


Пример использования теоремы 1 
о логическом следствии 
Предположим, что вас спрашивают: "А верно ли, что если вы любите Еву, то 


вы также любите и Маргарет?" А вы отвечаете: "Если это правда, то я люблю 
Еву, и если я люблю Еву, то это правда". Любите ли вы Маргарет? 
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Продемонстрируем решение задачи на основании теоремы 1. 


Пусть через Е обозначено утверждение "Я люблю Еву", через М — "Я люблю 
Маргарет". Утверждение "Если вы любите Еву, то вы любите Маргарет" за- 
пишется формулой: Е => М. Утверждение: "Если это правда, то вы любите 
Еву, и если вы любите Еву, то это правда" запишется так: 


((Е => М) - В & (Еэ (Е М). 
‘Предположим, ответ на вопрос будет таким "Я люблю Маргарет". Тогда по 
теореме 1 формула 


((Е => М) = 2) & (Е (Е 5 М)) = М 


должна быть общезначимой. Проверим это, выполняя эквивалентные пре- 
образования формул: 


((Е => М) > В & (Е (Е М)) = М*>› 
= (((Е => М) > В & (Е=> (Е => М))) У М®> 
= (Е М = Втч- (Е (Е М) у М*> 
(Е => М) & - Ем- (-Ему-Еч Му М*> 

(- Ем М) & -Еу (Е& -Му\уМ> 
- Е& (Му- Ву (Ем М) & (С МуМ®-> 

- Е& (Му-Етх (ЕуМ) & М®› 

- Е& (МуУ-В\х (ЕММ) <> 
(-Ем Ех М)& (Му-Е\у ЕМ М) => № & №№. 
Последняя формула общезначима, поэтому и рассматриваемая формула 
((Ё = М) => В) & (Е (Е М) М 


также общезначима, и мы нашли ответ на вопрос задачи. 


Упражнение 


Расследуется простое дело о хищении со склада. Преступник (или преступ- 
ники) вывезли награбленное имущество на’машине. Подозрение пало на 
трех человек А, В, С, которые были доставлены в Скотланд-Ярд для допро- 
са. Было установлено следующее: 


С никто, кроме 4, В, С, в хищении не замешан; 
С Сне ходит на дело без А; 
С Вне умеет водить машину. 


Виновен или не виновен /? 
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Задание по программированию 
1. Напишите сценарий, который определяет, является ли общезначимой 
некоторая заданная формула. 


2. Напишите сценарий, который определяет, является ли некоторая форму- 
ла следствием заданных пользователем формул, опираясь на теорему | о. 
логическом следствии. 


Пример использования теоремы 2 
о логическом следствии 
Рассмотрим предыдущий пример и ответим на вопрос: "Люблю ли я Еву?" 


На основании теоремы 2 о логическом следствии нас интересует, является 
ли противоречивой формула: 


((Е => М) => 2) & (Е (Е М)) & -Е. 
Убедимся в этом, выполняя эквивалентные преобразования формул: 
((Е => М) > В & (Е> (Е М)) & -М%® 
(- (Е»М)мЕ) & (- Ех (Е М)) & -М% 
(Е&- Мм В  & (- ЕММ) &- Е + 
Е & (- Му Е & (- ЕУМ & - Е®> [. 


Последняя формула противоречива, следовательно, еправедливо утвержде- 
ние "Я люблю Еву". 


Задача о рыцарях и лжецах 


На некотором острове; населенном рыцарями и лжецами (напомним, что 
рыцари говорят только правду, лжецы — ложь), разнесся слух о том, что на 
нем зарыты сокровища. Вы прибываете на остров и спрашиваете одного из 
местных жителей (назовем его А), есть ли на острове золото. В ответ на ваш 
вопрос А заявляет: "Сокровища на этом острове есть в том и только том 
случае, если я рыцарь". Можно ли определить: 


С кто такой А — рыцарь или лжец; 
С есть ли сокровиша на острове? 


Ответим на второй вопрос. Обозначим через А утверждение "А — рыцарь", 
через 2 — "Сокровища на острове есть". Тогда высказывание жителя А 
"Сокровища на острове есть в том и только том случае, если я рыцарь" за- 
пишется формулой: 


(> 1). 
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Если А — рыцарь, то его высказывание истинно; если лжец, то ложно, та- 
ким образом, наша посылка — формула вида 
(А => (АП). 


Для того чтобы доказать, что утверждение Ё — следствие нашей посылки, 
т.е. сокровища на острове есть, нам достаточно на основании теоремы 2 
доказать, что формула (А <= (А > Г)) & - Ё противоречива. Проверим это, 
перебрав все интерпретации и вычислив значение формул в каждой из них. 
В табл. 20.6 приведены значения формул во всех интерпретациях. | 


Таблица 20.6. Таблица истинности для формулы (А = (А = 1] & 1 


А В (А) (А => (А>и) (А> (АЕ) & 
и и СИ и Л 
И Л Л Л Л 
“Л И Л И Л 
Л Л И Л Л 
Формула 


(А=> (АФ 1)) & -Г 


ложна в любой интерпретации, следовательно, она противоречива, и поэто- 
му верно утверждение, что сокровища на острове есть. 


Упражнения 


По обвинению в ограблении перед судом предстали А, Ви С. Установлено 
следующее: 


С по крайней мере, один из трех подсудимых виновен; 
С если А виновен в ограблении и В невиновен, то С невиновен. 


Этих данных недостаточно, чтобы доказать виновность каждого из трех под- 
судимых в отдельности, Но эти Данные позволяют отобрать Двух Подсуди- 
мых, о которых известно, что один из них заведомо виновен. Определите И 
докажите, о каких подсудимых идет речь. 


Мы видим, что если задача такова, что ее посылки (постулаты) и следствие 
записываются формулами исчисления высказываний, то решить задачу можно 
одним из следующих способов: 


1. На основании определения логического следствия рассмотреть все ин- 
терпретации, в которых истинна формула А & РЁ &... & Е, и проверить 
значение формулы С. 
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2. На основании теоремы 1 проверить, является ли общезначимой формула 
А&Б&... & Е, > (С. 


3. На основании теоремы 2 проверить, является ли противоречивой форму- 
ла РА&Р... & Е &- С. 


Конъюнктивная нормальная форма 
иее построение 


Во многих случаях удобно рассматривать формулы специального вида или, 
как говорят, формулы в канонической форме. В математической логике и в 
теории автоматического доказательства теорем рассматриваются формулы в 
конъюнктивной нормальной форме. | 


Литералом называется атом или отрицание атома. 
Дизьюнктом называется литерал или дизъюнкция литералов. 


Формула находится в конзюнктивной нормальной форме (КНФ), если она пред- 
ставляет собой либо дизъюнкт, либо является конъюнкцией дизъюнктов. 


Элементарной конзюнкцией называется конъюнкция литералов. 


Дизьюнктивной нормальной формой называется дизъюнкция элементарных 
КОНЪЮНКЦИЙ. 


Теорема 


По любой формуле ЕЁ может быть построена эквивалентная ей формула С, 
находящаяся в КНФ. 


} 


Доказательство. Идею доказательства теоремы и построения КНФ поясним на 
примере формулы Рот трех переменных. Возьмем следуюшую формулу Е 


(Хэ > /. 


Приведем табл. 20.7, в которой перечислим интерпретации и значение фор- 
мулы в каждой из интерпретаций. Правый столбец таблицы будем использо- 
вать для построения дизъюнктов конъюнктивной нормальной формы, соот- 
ветствующей формуле. 


Таблица 20.7. Построение коньюнктивной нормальной формы 


№ Х у 2 (ХУ) 2 Дизъюнкты формулы 
1 И И И И 

2 И И Л Л  Хмл Уу2 
зи Л и Л “ХуУум2 
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Таблица 20.7 (окончание) 


№ Х у 2 (Х=>\)=2 Дизьюнкты формулы 
4 и Л Л и 

5 Л И И и 

6 Л И Л Л Ху - Уу2 

7 Л Л и и 

8 Л Л Л Л Ху Уу2 


Выделим те интерпретации, в которых формула принимает значение "ложь", 
и для этих интерпретаций построим дизъюнкт по правилу: если значение 
переменной — "ложь", то включаем в дизъюнкт эту переменную, в против- 
ном случае включаем переменную с отрицанием. Тогда по построению в 
интерпретациях, в которых значение РА ложно, значение С также ложно. 
В нашем случае формула С является конъюнкцией построенных формул: 


(- Ху- Уу 2) & (- Ху Уу- 2 & (Ху- Гуд & (ХУ ГУД. 


Формулы Ри С эквивалентны и С имеет КНФ. Эквивалентность формул 
можно доказать в качестве упражнения. 


Упражнение 


Преобразуйте следующие формулы в конъюнктивную нормальную форму: 
С (А Ас 5) &5 | 
ПО (Е М> & (Е (Е М) 


Построение формулы в конъюнктивной 
нормальной форме 


Напишем сценарий, который на основании рассмотренной теоремы по про- 
извольной формуле строит эквивалентную формулу, находяшуюся в КНФ. 


В текстовое поле вводится формула, после щелчка по кнопке, формируется 
эквивалентная формула, находящаяся в КНФ. Один из тестов продемонст- 
рирован на рис 20.6. 


При построении КНФ перебираются все интерпретации, исследуется значе- 
ние формулы в текущей интерпретации, и, если значение ложно, то соот- 
ветствующая формула добавляется в строку результата. Вместе с формулой в 
конъюнктивной нормальной форме выдается таблица истинности так, как 
показано на рис. 20.7. 
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Ант лохи 


з Построение конъюнктивной нормальной Формы - . МЫ > | 


:.. Файл. Правка Вид Избранное. "Сервис | _ Справка _ 7 


Введите формулу 


(УМА ЕмМи 


Можно использовать следующие символы: 

[а м, и’..2„4. ДИГ.2] - односимвольные меременные 
!- отрицание 

& - логическое И ' 

Г- логическое ИЛИ 


Конъюнктивная нормальная‘форма_ 


РЕЗОВ 


| Фа. "Правка. Ви _ Пере а Изба , 


Исходная формула: (!(|хУу) У) & (2х У) 


Коньюнктивно-нормальная форма: 
(ака) 


Таблица истинности 


—ШШ—Ш——м ыщм—мы^ реемлея =— нами 
, { 


(х У ра ‘значение | 


иле А умник и ии ль та : 
; 


ле ге ме аще 


ие "ппое вые Га15е 


алалесеь Амир волки отеыки че лире а" р млеиклка х дае лам паалмаллх т 


| гие Ве гие | _вае 


—:м. хрен А ми алиияь 


ое ‘ав ‘вые бе 
Чаве ‘име Пе Г. име 
Ве ое "ве _ Габе 


`Вве ‘Бе ние. | ме 


ве | ые ых Г ьье 


Возврат 


Рис. 20.7. Конъюнктивная нормальная форма 
заданной пользователем формулы 
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Три функции (построение таблицы истинности, анализ типа формулы и по- 
строение КНФ) хранятся во внешнем файле. Приведем содержимое НТМГ- 
документа, содержащего требуемые функции (листинг 20.4). 


Листинг 20.4. Конъюнктивная нормальная форма | В т неее 


// Функции построения таблицы истинности и КНФ. Когозсе1уоу Апагеу 


уаг згс5ек = ""; // Исходная строка 

уаг 1е = пем Аггау(); // Массив значений переменных формулы 
уаг 1е Маме = пем Аггау(); // Массив имен переменных 

уаг гез5ек = ""; // Строка результата 

уаг ТАВЬЕЗЕГ = ""; // Строка формирования элементов таблицы 
уаг КоЕЗЕхг = п1]1; // Формула в КНФ 

уаг ©сгиеУа1 = 0; // Формула общезначима == ТВОЕ 

уаг ЁЕа1зе\Уа1 = 0; // Формула противоречива == ЕАТЗЕ 


// Формирование заголовка документа и таблицы 
Ропсё1оп 101% () 
{ згсбЕг=аосащепе .а4афа.Еоттаа1а.уа14ае; 
рагзеГ1пе ($гс5%г); | 
аосчмеп® .мг1ее]п ("<и>Исходная формула:</а> "+згс5&г+"<рг><рг>"); 


ТАВЬЕ$ г += "<о>Таблица истинности</а>\п<ТАВЬЕ Богаег=1 
се11рааа1па=3>\п"+ 


"<ТВ Басо1ог=#сссссс>\п"; 
Гог (1=0; 1<1еЕМащме.1епаеВ; 1++) 

{ ТАВЬЕЗЕк += "\&<ТО><Ь>"+1е Маше [1] +"</5></ТО>\п" } 
ТАВЬЕЗЕг += "<ТО а119п=сеп$ег><Б>значение</ю></ТО>\п</ТВ>\п"; 
ргерагеТАВЬГЕ (1е*, 0); 

ТАВЬЕЗЕг += "</ТАВЬЕ>"; 
} 
// Формирование строки таблицы 
ЕопсЕ1оп раг5еГ1пе ($5%г) 
{ уаг саг; 
уаг К=0О; 
Бог (1=0; 1<56г.1епоаЕВ; 1++) { 
сиг = $6х.срагАЕ (1); 
1Ё (сах=="=" | | сах=="!" | | саг==" (" | [саг==")") 
{ гезбеу+=саг} 
е15е 1Ё (саг=="&") 
{ гез56г+="&&"} 


е1з5е 1Е (сахг=="\и" | | саг=="У") 


15 Зак. 834 
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{ гезбехг+="||"} 
е15е 
{ уаг е1етТпдех = 1паехоЕЕ1етепе (1еЕМаще, саг); 
1Е (е1епТраех==-1) 
{ е1етТлаех = К 
1е [к] = +хае; 
1еЕМапе [К] =саг; 
к++; 
} 


гез5Еу+="1ееет ["+е]1емТпаех+"]"; 


} 
// Возврат индекса найденного элемента или -1, если элемента нет 
Еапсе1оп 1паехоЕЕ1ептеп* (агх, е1ещепф) 
{ Еог(уаг 1=0; 1<агг.1епаЕей; 1++) 
{ 1Е (агх[1]==е1ешепе } 
{ гебагп 1 } 
} 
гееагп -1; 
} 
// Формирование строки таблицы значений 
ЕопсЕ1оп ргерагетТАВЬЕ (1е+ег, роз) 
{ уаг гез5хУа1; 
уаг +прьееёег; 
// роз — номер переменной 
//3==0 — егоае 
//3==1 — Еа]1зе 
Еог(уаг 5)=0; 1<2; 7++) 
{ 1Е((роз!=0 && 71!=0) | | (роз==0)) 
{ ТАВЬЕ$ ЕЕ += "<ТВ>\п"; 
Рог (1=0; 1<1екек.1ераев; 1++) 


{ 1Е (1еЕх[1]!=ЁЕа15е) { сирьезег="<Еопе 
со10:=#555555>"+1е 6х [1] +"</ЁЕоп®>" } 


е15е {+тпрЬебетг=1ееех[1]}. 
ТАВЬЕЗЕГ += "\&<Тр>"+ЕпрЬьееет+"</ТО>\п"; 
} 
тез5{:\а1 = еуа1 (гезоег); 
1Е (гезбзехУа1!=Еа1зе) 
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{ геззеуУа1="<ЁЕопе со10ох=#555555>"+гез5&хУа1+"</ЁЕопЕ>" } 
ТАВГЕ5Ег += "\&<Тр а119п=сепфег><5>"+гез5&г\Уа1+"</Б></ТО>\п"; 
ТАВЬЕ$ЕГ += "</ТВ>\п"; 
1Е (гез5егУа1) { Егаеу\Уа1++; } 
е15е { 

Еа15$е\а1++; 
1Е (КоЕбег != по11) {ргерагекМЕ (1её ег) } 


} 

1Е (роз<1ееег. 1епа®В-1) 

{ ргерагетТАВЬЕ (1е {г,роз$+1) } 
1еЕ Ех [ро5]=ЁЕа15е; 


1е=Ех [ро$]=Егоае; 
} 
// Построение конъюнктивной нормальной формы 
Еапс®*1оп ргерагекмЕ (1еЕ г) | 
{ 1Е (КоЕЗЕг |= ""){ КоЕЗЕхЕ += "&"; } 
КПЕЗЕк += "("; | 
Рог (1=0; 1<1е6г.1епаЕН; 1++) 
{ 1Е (1еёег[1)) 
{ КоЕ5ег += "!"+ 1е%Мапе[1] +"|"; } 
е15е 
{ КоЕзег += 1е Мапе[1] +"|"; } 
} 
КПЕЗЕг = КЛЕЗЕг. заб г1па (0, КоЕЗЕх.1епав-1)+")"; 
} 
// Формирование ссылки перехода к основному документу 
Еапсе1оп аосЕоо*ег () 
{ аосимепе.мг1ее1п ("<Ьг><А ргеЁ=1п4ех.НТМТ>Возврат</А>") } 
// Вывод таблицы 
Еопс®1оп ТАВЦЕ () 
{ 1016(); 
Аосимеп® .имг1е1п (ТАВЦЕ$ ЕЕ); 
ЧосГоотег (); 
} 
// КНФ | .. 


Еюрс®1оп КПЕ() 
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{ КОЕЗЕг = "И; 
1016 (); 
1Е (КрЕбег=="") {корЕ5фх = "Отсутствует" } 
КПЕЗег = "<а>Конъюнктивно-нормальная форма:</иа> <ВВ>\п" + 


КПЕ5ЗЕг+"<рг>"; 
Аосимепе . мг е1п (кКпЕЗг+"<рг>"); 
Аослмепе .мг1$е]т (ТАВЬЕЗЕГ); 
ЧосГооеег (); 
} 
// Определение типа формулы 
Еопс®1оп Еоппа1аТуре () 
{ 101% (); 
аоспиеп® .мг1е]п ("<и>Формула является:</а><рг>\п"); 
1Е (ЕгаеУа1==0) 
{ аосямепе.иг1ве]т ("Противоречивой<г><рг>") } 
е15е 1Е (Ёа1зеУа]1==0) 
{ досощепе.мх1ее1лп ("Общезначимой<5хг><5хг>") } 
е15е 
{ аосимеп® .мгтве1т ("Выполнимой<г><Ьг>"); 
Чосимеп® .мг1®е1п (ТАВЬЕЗЕЕ); 
} 


аосГообек (); 


Алгоритм построения КНФ 


Один из способов построения формулы в КНФ мы уже продемонстрирова- 
ли. Заметим, что КНФ С формулы РЁ можно получить, выполняя последова- 
тельно эквивалентные преобразования формулы Ё Алгоритм преобразова- 
ния может быть таким: 


1. Сначала следует исключить из формулы знаки логической эквивалентно- 
сти и импликации, применяя последовательно правила эквивалентности: 


о А В‹›(- Ам В) & (- ВУЛ 
.е (АВ -АУВо 


2. Затем необходимо подтянуть логическое отрицание к атомам, используя 
правило - (- А) ‹> ЁР, и применяя правила де Моргана: 


. -(АУВо-А&- В 
. -(4аВо-Ах-В 
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3. Потом применить несколько раз дистрибутивные законы: 
е Ду (В& С) <> (А& ВУ (А& О 
е АХ (Ву С) <› (А& ВУ (А& О 


Продемонстрируем в качестве примера те преобразования, которые необхо- 
димо выполнить, чтобы построить КНФ для рассмотренной нами ранее 
формулы (Х= У >. 


ии 
О (ХХ) = &(15 (7) 
+5 Иуда с 2У-ХУ И 
ПО СС ХУ У & С ИУ- ХУ? 
п &-Уу д & < 7у- Хи & < ИУ ХУ 
В (ХУД & СУУД & СЛУ ТУ-И 
Полученная формула (1 
(Ху & (Ум & СХу Туи 


эквивалентна исходной формуле РЁ, находится в конъюнктивной нормаль- 
ной форме и не совпадает с С. 


Упражнения 

1. Преобразуйте следующие формулы в конъюнктивную нормальную форму: 
° - (Ра О->(А57 
. (Е>М=--Ву(Е=>(Е=>- М) 
е (Р>(А->Т)) > -(Р& оО) 

2. Преобразуйте следующие формулы в дизъюнктивную нормальную форму: 
е - (Р&О=> (КТ &-В 
. Е &((Е> М) -- В \у(Е= (Е--М)) 
е -Р=> (Р>(К>Т)) =>-(Р&О) 


Нетрудно доказать, что произвольная пропозициональная формула эквива- 
лентна дизъюнкции элементарных конъюнкций, соответствующих тем ин- 
терпретациям, при которых данная формула истинна. 


Автоматизация ввода логических формул 


Необходимо создать сценарий, который облегчает ввод логических формул. 
При нажатии кнопок, сопоставленных переменным, скобкам или логиче- 
ским операциям, соответствующая операция появляется в поле ввода. После 
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формирования формулы в текстовом поле при щелчке по кнопке вычисля- 
ется таблица истинности, определяется тип формулы, строится соответст- 
вующая формуле конъюнктивная или дизъюнктивная нормальные формы 
так, как показано на рис. 20.8. 


Введите формулу 886/586 _ 


Можно использовать следующие с символь. 


| д Е блица, ист инности._ | 
-. ` Контюнктивно. нормальная форма 
=. —- Дизъюнктивно нармальноя форма_ Е 


Тип ‘формулы’. 


О программе в 
_= 


тии: ре ее перил ^ ар мл о меыя чей чл а мь $ Зимин рмисУ печ ирак ии 


в. А 4. ВЛ Мей компьютер. ^. г = Г” И ? — : 5 р 


Рис. 20.8. Обработка логических формул 


Полностью написать сценарий с помошью уже описанных функций пред- 
лагается в качестве упражнения. 


В последних рассмотренных примерах использовались три логические опе- 
рации. Это облегчало написание алгоритмов анализа формулы, т. к. позво- 
ляло для вычисления значения формулы воспользоваться функцией ета1. 
Рассмотреть варианты решения предложенных задач в случае, когда в фор- 
муле используются импликация и эквивалентность, читателю предлагается 
самостоятельно. 


Метод резолюций 


Теперь нам надо показать, как из уже имеющихся знаний можно извлекать 
новые утверждения. Введем правило резолюции, согласно которому из двух 
рассуждений можно вывести третье. 
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Литерал Г! образует контрарную пару с литералом [2, если 
7Й` => [2. 


Пусть Ст и С> — два дизъюнкта. Литерал [! из дизъюнкта С|, литерал [2 из 
дизъюнкта (>. Причем литералы [1 и [> образуют контрарную пару. Резоль- 
вентой дизьюнктов С] и С> называется дизъюнкт С, составленный из С вы- 
черкиванием [1 и из С› вычеркиванием /[.. 


Таким образом, если у нас есть два дизъюнкта и один из них содержит ли- 
терал Д, а другой — литерал - Ё, то мы можем рассмотреть дизъюнкт, кото- 


рый содержит литералы первого за исключением литерала [ и литералы 
второго за исключением - ЕЁ. Такой дизъюнкт называется резольвентой пер- 
вых двух. Например, если первый дизъюнкт ^- Ам С, второй - Су О, то их 
резольвентой будет формула - Ат В. Если первый дизъюнкт состоит из од- 
ного литерала А, а второй из литерала - А, то их резольвентой будет тожде- 
ственно ложный дизъюнкт, который принято обозначать символом [. 


Выводом в методе резолюций дизъюнкта С из множества 5 называется после- 
довательность дизъюнктов Ст, Со, ..., Су такая, что для любого 1 (1< А) С; — 
либо дизъюнкт из 5, либо является резольвентой предыдущих дизъюнктов. 


Вывод можно рассматривать как формализованный аналог понятия доказа- 
тельства. 


Вывод тождественно ложного дизъюнкта называется опровержением. 


Теорема о резольвенте 


Пусть даны два дизъюнкта Ст и (>. Резольвента С дизъюнктов Су и С> явля- 
ется их логическим следствием. 


Резольвента позволяет переходить от двух рассуждений к третьему, а теоре- 
ма о резольвенте гарантирует, что если исходные утверждения были истин- 
ными, то истинным будет и построенное утверждение, т. е. резольвента. 


Доказательство. Пусть 
С = Ёу Ри С. = - Бу О, 


тогда резольвента имеет вид Ру О. Предположим, что дизъюнкты Су и С> 
истинны в произвольно взятой интерпретации /. Нам требуется доказать, 
что резольвента С также истинна в этой интерпретации. Если значение ли- 
терала Г в выбранной интерпретации истинно, то значение литерала - Г 


ложно, но тогда значение дизъюнкта О должно быть истинным, т. к. исти- 
нен дизъюнкт С>. А поскольку значение дизъюнкта О истинно, то и резоль- 
вента истинна. Если же значение литерала [ в выбранной интерпретации 
ложно, то истинным должно быть значение дизъюнкта Р, т. к. дизъюнкт С! 
истинен. Как и в предыдущем случае, резольвента будет иметь значение 
"истина". Таким образом, резольвента является логическим следствием 
дизъюнктов, по которым она построена. | 
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Пример использования 
теоремы о резольвенте 


Предположим, что справедливы следующие утверждения: 


О если электрички приходят не по расписанию, то студенты опаздывают на 
лекцию; 


О если студенты опаздывают на лекцию, то преподаватель недоволен. 


Введем следующие обозначения: обозначим через Р утверждение "Электрич- 
ки приходят не по расписанию", через О — "Студенты опаздывают на лек- 
цию" и, наконец, через А — "Преподаватель недоволен". Тогда приведенные 
рассуждения записываются формулами: 


(Р> Ои(0>Ю.. 


После преобразования к КНФ получим дизъюнкты 
(- РуОуи (- Ом В, 


содержащие контрарную пару. Резольвентой этих двух дизъюнктов будет 
формула (- Ру А), которая эквивалентна формуле (Р = А). Последняя фор- 


мула, очевидно, соответствует рассуждению: "Если электрички не приходят 
по расписанию, то преподаватель недоволен". 


Упражнения 


Найдите все возможные резольвенты (если они есть) следующих пар дизъ- 
ЮНКТОВ: . 


С - Ау Су Ку Ту В 
О - ВУСУ-М 

О - Ау Ву Су- М 
П - Су Ву- К 

О АУУ СУу- О 

О -р 


Задание по программированию 


Напишите сценарий, который по двум заданным дизъюнктам строит ре- 
зольвенту, если это возможно. 
Теорема о полноте метода резолюций 


Множество дизъюнктов 5 противоречиво тогда и только тогда, когда суще- 
ствует опровержение в 55 (или из 55). 
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Доказательство. Приведем доказательство достаточности. Предположим, что 
мы построили опровержение во множестве дизъюнктов 5; вывод имеет вид: 
р, 0, ..., О. Докажем, что множество дизъюнктов 5 противоречиво. Пред- 
положим, что это не так, множество 5 выполнимо и, следовательно, сущест- 
вует интерпретация /, в которой все дизъюнкты из 5 истинны. Каждое 0); в 
опровержении либо из множества ,5 и является истинным, либо представля- 
ет из себя логическое следствие предыдущих дизъюнктов и также истинно 
по теореме о резольвенте. Но тогда и последний дизъюнкт истинен, чего не 
может быть, потому что последний дизъюнкт в опровержении тождественно 
ложная формула. 


Вернемся к сформулированной ранее задаче. Пусть у нас есть аксиомы или 
уже доказанные факты А, Р, ..., Ри. Нам требуется определить, следует ли 
утверждение С из фактов [, В, ..., Ри. По теореме 2 о логическом следствии 
для решения этого вопроса нам достаточно определить, является ли формула 


Е&Б&..& Е &- с 
противоречивой. Эту формулу МОЖНО преобразовать к КНФ и рассматривать 
в дальнейшем множество дизъюнктов ,5: 
5 = (51, 5, ...) 5}. 


По теореме о полноте метода резолюций, для того чтобы определить проти- 
воречивость (невыполнимость) множества ,5, достаточно найти опроверже- 
ние в 5. 


Задача о поиске виновного 


В совершении преступления подозреваются четверо человек: АД, В, С, О. Ус- 
тановлено следующее: 


С если Л или В виновны, то и подозреваемый С виновен; 

С если А виновен, то, по крайней мере, один из двух В или С тоже виновны; 
О если С виновен в ограблении, то и Д виновен; 

О если А невиновен, то О виновен. 

Виновен ли 0? 


Будем считать, как и раньше, что через А обозначено утверждение "А вино- 
вен", через В — "В виновен", через С — "С виновен" и, наконец, через р — 
"р виновен". Запишем четыре известных факта и ответ на вопрос формула- 
ми исчисления высказываний: 


ПА: АуВьС 
О БВ: А ВуС 
О ВБ: Сър 

ПА - Ар 
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Следствие С: ) (Л виновен). 
По теореме 2 о логическом следствии построим для наших конкретных вы- 
сказываний формулу вида АЕ & Р& В& ВЕ &- С: | 

(Ам В= С) & (А> ВУ С &(С=> 0) & (СА) &- В. 
Приведем ее к КНФ, получим множество дизъюнктов, которые обозначим 
51—46: 

5 = {- Ам С, - Ву С, - Ам Ву С, - Су, Ау, - ПВ. 
Построим опровержение в 5: 
О 57: - Ау О резольвента 55] и 554 


СО $3: В резольвента 557 и 555 
О 59: 0 резольвента ‚5; и 4% 


Построив опровержение в методе резолюций, мы по теореме о полноте мето- 
да резолюций доказали, что множество дизъюнктов противоречиво, следова- 
тельно, рассматриваемая формула противоречива. По теореме 2 утверждение 
С — логическое следствие, т. е. подозреваемый в преступлении Д виновен. 


Задача о влюбленном логике 


Перед нами три девушки: Сью, Марция и Диана. Предположим, что юноша, 
занимающийся математической логикой, высказывает следующее. 


С Я люблю, по крайней мере, одну из этих трех девушек. 

О Если я люблю Сью, а не Диану, то я также люблю Марцию. 

О Я либо люблю Диану и Марцию, либо не люблю ни одну из них. 

О Если я люблю Диану, то я также люблю Сью. 

Требуется определить, любит ли автор высказываний Диану? 

Запишем формулами четыре высказывания и предполагаемое следствие: 

ПОЛ: СУ МУ 

ОБ: С& -Э5-мМ 

О Б: 0& М- О&-мМ 

ОЕ Сс 

[м ВАУ. 

Формулу, построенную согласно теореме 2 о логическом следствии: 
(Су Му В) & (С& -2> М) & )О& Му-О&-М & О 9О&-р 

приведем к КНФ и получим интересующее нас множество дизъюнктов: 

9 = {Су Мур, - Су Мур, М\у-- Му -БУусС-в. 


Глава 20. Формулы исчисления высказываний 447 


Считаем, что наши исходные дизъюнкты пронумерованы от 5! до 56. По- 
строим опровержение в 5: 


О 5: Му В резольвента 51 и 5> 
О 5$: Дрезольвента 57 и 55 
С 59: С резольвента ‚58 и 556 


На основании теоремы о полноте метода резолюций делаем вывод о том, 
что автор высказываний любит Диану. 


Упражнения 


1. Постройте опровержение для решения следующей задачи. На острове 
рыцарей и лжецов за преступление судили двух жителей. Обвинитель, 
однако, оказался также жителем острова. Он заявил следующее. 


е Ли Уне могут быть виновны оба; 
е ЛХ ВИНОвВеН. 
Кто обвинитель: рыцарь или лжец? 


2. Постройте опровержение для решения следующей задачи. Три человека, 
А, Ви С, проживают на острове рыцарей и лжецов. Условимся называть 
двух людей однотипными, если они оба рыцаря или оба лжеца. Пусть Аи 
В высказывают следующие утверждения: 


е Д: В — лжец; 
е РВ: Аи С однотипны. 
Кто такой С: рыцарь или лжец? 


Задание по программированию 


1. Напишите сценарий, который по заданной последовательности дизъюнк- 
тов определяет, может ли она быть выводом в данном множестве дизъ- 
ЮНКТОВ. 


2. Напишите сценарий построения опровержения для заданного множества 
ДИЗЪЮНКТОВ. 


Методы сокращения 
множества дизъюнктов 


Мы исследуем вопрос, является ли противоречивым множество дизъюнктов ь5. 
Однако это множество может быть достаточно велико, поэтому искать вы- 
вод из большого множества дизъюнктов иногда затруднительно. Возникает 
вопрос, можно ли как-нибудь это множество сократить? Математики Девис 
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и Патнем предложили несколько правил, которые позволяют сократить ис- 
ходное множество дизъюнктов. | 


Правило тавтологии 


Из множества дизъюнктов 5 можно вычеркнуть все дизъюнкты, которые 
являются тавтологиями. Оставшееся множество дизъюнктов противоречиво 
тогда и только тогда, когда противоречиво множество 55. 


Правило однолитерных дизъЪюнктов 


Если во множестве 5 существует однолитерный дизъюнкт [, то множество 
5; получается из 5 вычеркиванием всех дизъюнктов, содержащих Ё. Если 
построенное ,51 пусто, то исходное 5 выполнимо. Для доказательства выпол- 
нимости „5 достаточно рассмотреть интерпретацию, в которой значение [, 
истинно. В противном случае по 5! строим множество дизъюнктов .5>, вы- 
черкивая из 51 все вхождения - [. Множество дизъюнктов .5) противоречиво 


тогда и только тогда, когда противоречиво множество 5. 


Задача о влюбленном логике 
с применением правила 
однолитерного дизъюнкта 


Мы рассмотрели ранее задачу о влюбленном логике и трех девушках: Сью, 
Марции и Диане. Для решения вопроса о том, любит ли человек, высказы- 
вающий четыре утверждения, Диану, мы строили опровержение в методе 
резолюций. Однако решить эту задачу можно, применяя к построенному 
множеству дизъюнктов правило однолитерного дизъюнкта. 


Рассмотрим множество дизъюнктов 55: 

$ = {Су Му Ь, - Сум М, Ву -М,- Бу М - Ус - в}. 
Дизъюнкт - О — однолитерный; применив к множеству 5 правило одноли- 
терного дизъюнкта, получим множество 51: 


9: = {Су Мур, - СуБут М, ЭУ- М. 
Теперь вычеркиванием из 51! всех вхождений О получим множество 555: 
5 = {Су М, - Су М-М. 


В построенном множестве также есть единичный дизъюнкт 7 М. После 
применения правила единичного дизъюнкта к этому множеству получаем 
{С, - С}. В последнем множестве опять есть единичный дизъюнкт, после 
применения правила получаем противоречивое множество, следовательно, и 
исходное множество .5 противоречиво, т. е. 2 — логическое следствие. 
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Правило чистых литералов 


Литерал Ё называется чистым литералом, если в 5 не входит литерал - [. 


Если [, — чистый литерал, то вычеркиваем из ® все дизъюнкты, содержа- 
щие 2. Оставшееся множество дизъюнктов обозначим через 51. Множество 
дизъюнктов 51 противоречиво тогда и только тогда, когда противоречиво 
множество 5.5. | 


Правило расщепления 


Пусть множество 5 можно представить в виде: 

9 = {Им Ё, ..., Ашу 6, ВУ-Ь,..., ВЕ -Ё, К, ..., Ка}, причем дизъюнкты 
А, В, К; не содержат ни [, ни - [. Рассмотрим два множества: 

О 5 — (Ар, Ао, 9 Ат, Ау, .., Ка} 

С 5) = {В\, В>, ... Вк, Ку, о Ка} 


Множество „5 противоречиво тогда и только тогда, когда оба множества 51 и 
.5› противоречивы. 


Пример использования правила чистого литерала 


Рассмотрим множество дизъюнктов ›5. 
5 = {Ам Ву С, Ам Ву- С, - В,- СЦ. 


В этом множестве есть чистый литерал А. Применим к множеству дизъюнк- 
тов правило чистого литерала. Множество после применения правила чис- 
того литерала будет следующим: 


51 = {> В, 7 С}. 


Пример использования правила расщепления 


Рассмотрим множество дизъюнктов 5 и применим к нему правило расщеп- 
ления по литералу ДА: 


5 = {- Ау В, - Ау - Ву С Ау, Эу- С Аум- в, - 1}. 
Полученные после применения правила расщепления множества: 
51 = {В, - ВуУС Бу- С-В, 5={10-0,Эу- С. 


Множество 51 противоречиво, доказать это можно, построив, например, оп- 
ровержение в 551: 


О $5; С резольвента дизъюнктов Ви -ВуС 
О 55: В резольвента дизъюнктов Си Ду- С 


С 57: 9 резольвента дизъюнктов Ди - р 
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Множество .5> противоречиво, т. к. опровержение строится по дизъюнктам 
Ди- р. 


В некоторых случаях удается решить задачу, используя лишь правила со- 
кращения дизъюнктов. Продемонстрируем такую возможность при решении 
следующей задачи. 


Задача об искателе приключений 


Предположим, что некоторый искатель приключений хочет добраться до 
острова сокровищ. Путешественнику предложили три карты: Х, Уи д 
Только одна из карт правильная и указывает путь к острову сокровищ. 
В комнате, где лежали карты, находились пятеро колдунов: А, В, С РБиЕ. 
Каждый колдун был либо рыцарем, либо лжецом и каждый дал путешест- 
веннику совет: 


О А: Х — правильная карта; 

О В: У— правильная карта; 

О С. неверно, что Аи В — оба лжеца; 
О р: либо А — лжец, либо В — рыцарь; 


О Е либо А — лжец, либо Си О — однотипны (либо оба рыцари, либо оба 
лжецы). 


Какая же из карт правильная? 


Докажем, что У— правильная карта. Будем, как ранее, обозначать через А 
утверждение "А — рыцарь" (аналогично для В, С, ри ВЮ. Обозначим через Х 
утверждение "Х — правильная карта" (аналогично для Ги 7). Запишем сна- 
чала советы колдунов и предполагаемое следствие формулами исчисления 
высказываний: 


ОР: Ах 

ОБ: ВУ? 

О Б: С -СА&- В) 

ОД: ре -АмУВ 

О 55: Ее - Е (СФ) 

О С:У 

Построим КНФ вида 
А&Р&В&ВЕ&Е&- С. 

Для этого приведем каждое из А к КНФ: 

О Л: А ХФ (С АУЛ & (АУ-Х 

О Б: В> ТФ (- Ву) & (Ву-У 
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ОБ: С -СА&-В > (5 СуА\ В) & (Су-А&-В)> 
(Ау Ву- С & (СУ-А & (Су- В) 
О А Ре - Ах Ве (- Бу- Ам В) & А&- Ву) 
(- Ру- Ат В) & АУ) &С ВУ 
О Б: Е -Еу(С=Ф))* 
(- Ех - Ем (- Су в) & (Су- ))) & (Е& - (С. Эу> 
(- Суру- В & (Су- Эу- В & Е& (> Су- Оу В & (Су В\уЕР) 
Рассматриваемое нами далее множество дизъюнктов 5 имеет ВИД 
5 = {- Дух, Ау - Х, - Ву Г, Ву- У Ах Ву- С Су-А, Су-В- Шу 
- Ам В, Ам ОБ, - Ву), - Су )у-Е Су-Оу- ЕЕ - Су- УЕ, 
Су )\Е, - 7). 


Применим к множеству 5 правило единичного дизъюнкта (дизъюнкт 2), 

получим множество 51: 

51 = {- АмХ, Ам - Х, - Ву 7, Ву- Г, Ау Ву- С, Су-А, Су- В, - Оу 
- Ам В, Ам ВБ, - Ву О, - Су, Су-Ь, - У. 


В полученном множестве есть единичный ДИЗЪЮНКТ 7 у, применим к мно- 

жеству 5 правило единичного дизъюнкта, получим множество 5: 

$) = {- АуХ, Ау-Х - В, Ам Ву - С, Су-А, Су- В, - Бу- АМ В, Ау 
р, - Ву), - Сув, Су- в}. 


Во множестве .5> есть единичный дизъюнкт ^ В, после применения правила 
по этому дизъюнкту получим множество .53: 


53 = {- Аул, Ам - А, Ам- С, Су-А, - Бу- А, Ам В, - См ВБ, Су-В}. 


К построенному множеству .5> применим правило расшепления по дизъ- 
юнкту А, получим два множества ‚54 и 55: 


$1 = {Х, С-Ь, - бур, Су- В 
55 = {- Х- Ср, - Су р, Су- В. 


Во множестве .54 есть чистый литерал Х. По правилу чистого литерала все 
дизъюнкты, содержащие этот литерал, можно исключить из рассматривае- 
мого множества. Получим множество 


56 = {С, - О, - Суб, Су- В. 
К множеству 56 можно применить правило единичного дизъюнкта по лите- 
ралу С, получим множество ‚57 = {- 2, 2}. Множество 557 противоречиво. Во 
множестве ,55 есть чистый литерал - Х. Применяя к 55 правило чистого ли- 
терала, а затем правило единичного дизъюнкта, получаем противоречивое 


452 Часть /!. Решение вычислительных задач с использованием /ауа$спрЕ 


множество. Следовательно, утверждение Ур— логическое следствие утвер- 
ждений А— Её, таким образом, карта У— правильная карта и поиск сокро- 
вищ можно продолжать. 


Упражнения 


|. 


Перед нами три островитянина, А, В, С, каждый из которых либо ры- 
царь, либо лжец. Двое из них высказывают утверждения. 


е ЛД: все мы лжецы; 
» В: ровно один из нас лжец. 
Кто такой островитянин С? 


Постройте множество дизъюнктов и примените для сокращения к нему 
правила Девиса и Патнема. 


Путешественник проснулся на острове рыцарей и лжецов, название ко- 
торого он не помнит. Он разговорился с двумя местными жителями Аи 
В, которые сообщили ему следующее. 


. Д: В — рыцарь и остров называется Майя; 
е В: А — лжец и остров называется Майя. 
Можно ли утверждать, что остров действительно называется Майя? 


Постройте множество дизъюнктов и примените для сокращения к нему 
правила Девиса и Патнема. 


Внимание трех девушек Екатерины, Елены и Евгении привлек проез- 
жающий мимо автомобиль. 


е Екатерина сказала: "Эта машина изготовлена в США, марка ее — 
Форд": 


е Елена возразила: "По-моему, эта машина из Германии, ее марка — 
Мерседес"; 


» Евгения добавила: "Марка машины — Ауди, изготовлена не в США". 


Оказалось, что каждая из трех девушек права только в одном из своих 
высказываний. Какой марки автомобиль, и в какой стране изготовлен? 


Постройте множество дизъюнктов и примените для сокращения к нему 
правила Девиса и Патнема. 


Задания по программированию 


]. 


Напишите сценарий, который сокращает заданное множество дизъюнк- 
тов по правилам Девиса и Патнема. 


Напишите сценарий, который проверяет правильность построения фор- 
мулы исчисления высказываний методом рекурсивного спуска. 
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3. Напишите сценарий, который для заданной пропозициональной форму- 
лы находит все подформулы, значения которых совпадают с заданным. 


4. Напишите сценарий, который по формуле исчисления высказываний, 
представленной в инфиксной нотации, строит формулу в префиксной 
нотации. 


5. Напишите сценарий, который вычисляет значение пропозициональной 
формулы, находящейся в постфиксной нотации. 


6. Напишите сценарий, при выполнении которого пропозициональная 
формула преобразуется таким образом, что знак отрицания встречается 
лишь перед переменной. 


7. Заданы две пропозициональные формулы. Напишите сценарий, который 
проверяет, являются ли формулы эквивалентными. 


8. Переменная х в формуле А называется фиктивной, если существует фор- 
мула В, эквивалентная формуле А, и не содержащая вхождений пере- 
менной х. Напишите сценарий, который находит в заданной формуле 
все фиктивные переменные. 


9. Напишите сценарий, который по заданной пропозициональной формуле 
определяет, верно ли, что на наборах противоположных значений пере- 
менных формула принимает противоположное значение. 


10. Пара скобок в пропозициональной формуле называется избыточной, если 
после ее удаления формула остается эквивалентной исходной формуле. 
Напишите сценарий, который удаляет все избыточные пары скобок. 


Занимательные задачи 


Если задача описывается с помощью формул исчисления высказываний, то 
многие этапы решения задачи (определение общезначимости, противоречи- 
вости или выполнимости формул, приведение к КНФ, сокращение множе- 
ства дизъюнктов и др.) можно автоматизировать, в чем мы могли убедиться, 
выполняя различные задания по написанию сценариев. 


Полученные знания рекомендуется применить при создании сайта, позво- 
ляющего пользователю решать логические задачи и проверять правильность 
решения. Для выбранной из предложенного списка задачи пользователю 
требуется ввести формулы, соответствующие условию задачи, и указать 
предполагаемое следствие. Созданный сценарий должен проверять правиль- 
ность решения задачи любым из описанных способов. Предлагается сле- 
дующий список задач, который может быть дополнен или изменен разра- 
ботчиком. 
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Прекраснейшая богиня 


В одном старинном задачнике описан суд Париса следующим образом. Бо- 
гини Гера, Афродита и Афина пришли к Парису, чтобы он решил, кто из 
них прекраснее. Богини (обозначим их а, В, Х) высказали следующие ут- 
верждения. 


С] о: я самая прекрасная; 

О В: Афродита не самая прекрасная; 
С х: я самая прекрасная; 

О с: Гера не самая прекрасная; 

СО В: я самая прекрасная. 


Парис предположил, что высказывания прекраснейшей из богинь истинны, 
а все утверждения двух остальных ложны. Мог ли Парис вынести свое ре- 
шение? Кто прекраснейшая из богинь? Какие богини скрываются под име- 
нами с, В, Х? 


Игроки на скачках 


Перед началом бегов на ипподроме четверо знатоков из числа зрителей об- 
суждали шансы трех фаворитов: /, Ви С. Во время обсуждения были вы- 
сказаны следующие утверждения. 


С заезд выиграет А или С; 

С если А придет вторым, то выиграет В; 

О если А придет третьим, то С не выиграет; 
О вторым придет А или В. 


После заезда выяснилось, что фавориты А, Ви С действительно заняли пер- 
вые три места и что все четыре высказывания знатоков оказались истинны- 
ми. Как фавориты поделили между собой места? 


Поиск пути выхода из лабиринта 


Одинокий путник заблудился в лабиринте и попал в комнату, из которой 
можно выйти в одну из четырех дверей: Х, 7, Ги И’. По крайней мере одна 
из дверей ведет к выходу из лабиринта. Того, кто выходит через другую 
дверь, ожидает дракон, живущий в лабиринте. 


К, удивлению путника в комнате находятся восемь жрецов, каждый из кото- 
рых либо рыцарь и говорит всегда только правду, либо лжец и всегда лжет: 
А, В, С, О, Е, Ё, Си Н. Нашему путнику жрецы сообщили следующее: 


О А: Х — дверь, ведущая к выходу из лабиринта; 
С В: по крайней мере одна из дверей Хи Уведет к выходу из лабиринта; 
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О С. Аи В- рыцари; 

С р: обе двери Хи Уведут к выходу из лабиринта; 
С Е обе двери Хи 1 ведут к выходу из лабиринта; 
С Е либо В, либо Е — рыцарь; 

О С: если С — рыцарь, то РЁ — рыцарь; 

О АЛ: если Сия сам — рыцари, то А — рыцарь. 
Какую же дверь выбрать одинокому путнику? 


Расследование преступления 


Какие выводы вы бы сделали из следующих фактов? 
О Если А виновен и В невиновен, то С виновен. 

С Сникогда не действует в одиночку. 

С Аникогда не ходит на дело вместе с С. 


С Никто, кроме А, Ви С, в преступлении не замешан и, по крайней мере, 
один из этой тройки виновен. 


Чья виновность не вызывает сомнений? 


Обвинитель на острове рыцарей и лжецов 


На одном из островов, населенных рыцарями и лжецами, за совершение пре- 
ступления судили двух местных жителей Хи 7. Об обвинителе было известно, 
что он либо рыцарь, либо лжец. На суде обвинитель сделал два заявления: 


С Хвиновен; 
О Хи не могут быть виновны оба. 
Кто обвинитель: рыцарь или лжец? 


Суд на острове рыцарей и лжецов 

Предположим, что обвинитель сделал следующих два заявления: 

С либо Хне виновен, либо Увиновен; 

С] Хвиновен. 

К какому заявлению вы бы пришли на основании этих заявлений? 


Любовь рыцаря или лжеца 


Предположим, что некоторый человек, который может быть либо рыцарем, 
либо лжецом, делает следующие заявления: | 


С я люблю Линду; 
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С если я люблю Линду, то я люблю Диану. 


Кто же он: рыцарь или лжец? 


Интервью на острове рыцарей и лжецов 

У трех обитателей А, Ви С острова рыцарей и лжецов взяли интервью, в 
ходе которого они высказали следующие утверждения: 

О А: В — рыцарь; 

О В; если А — рыцарь, то С — рыцарь. 


Можно ли определить, кто из А, Ви С рыцарь и кто лжец? 


Путешественник на островах 

Путешественник ищет остров с названием Майя. Исследуя третий остров, 
путешественник встретил двух жителей Аи В, которые заявили следующее: 
О А: по крайней мере, один из нас лжец, и этот остров называется Майя; 

О Р: совершенно верно! 


Можно ли утверждать, что третий остров действительно называется Майя? 


Исследование шестого острова 

Путешественник ищет остров с названием Майя. Исследуя шестой остров, 
путешественник встретил двух жителей Аи В, которые заявили следующее: 
О А: либо В — рыцарь, либо этот остров называется Майя; 

С В: либо А — лжец, либо этот остров называется Майя. 


Можно ли утверждать, что шестой остров действительно называется Майя? 


Поиск виновных 


В этом случае подсудимых четверо: А, В, Си О. Установлено следующее: 
О если Аи В оба виновны, то С был соучастником; 


С если А виновен, то, по крайней мере, один из обвиняемых В или С был 
соучастником; 


О если С виновен, то О был соучастником; 
С если А невиновен, то О виновен. 


Кто из подсудимых виновен вне всякого сомнения, и чья вина остается под 
сомнением? 
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Искатель приключений 


Предположим, что некоторый искатель приключений хочет добраться до 
острова сокровищ. Путешественнику предложили три карты: ХЛ, Ги /. 
Только одна из карт правильная и указывает путь к острову сокровищ. 
В комнате, где лежали карты, находились пятеро колдунов: А, В, С, Ри ЕЁ. 
Каждый колдун был либо рыцарем, либо лжецом и каждый дал путешест- 
веннику совет: 


С А: Х— правильная карта; 

С В: У— правильная карта; 

О С: неверно, что Аи В — оба лжеца; 
О р: либо А — лжец, либо В — рыцарь; 


СО Е либо А — лжец, либо Си О — однотипны (либо оба рыцари, либо оба 
лжеца). 


Какая же из карт правильная? 


Глава 21 


Поиск доказательств 


Данная глава посвящена рассмотрению методов автоматизации поиска дока- 
зательства. В главе 20 при решении задач использовалась следующая схема. 
Пусть у нас имеются аксиомы или уже доказанные факты 


Е, В, ..., Е, 


Нам требуется определить, следует ли утверждение С из утверждений А, РЮ, ..., 
Ри. Согласно теореме 2 о логическом следствии для решения этого вопроса 
нам достаточно определить, является ли формула 


Е&рР&.. & Е &-С 


противоречивой. Данную формулу можно преобразовать к равнозначной 
формуле, находящейся в КНФ, и в дальнейшем рассматривать множество 
ДИЗЪЮНКТовВ 


5 = {51, 55, ..., ди}. 


По теореме о полноте метода резолюций для того, чтобы определить проти- 
воречивость (невыполнимость) множества 55, достаточно найти опроверже- 
ние в 5. Правило резолюции позволяет извлекать новые данные из уже 
имеющихся, а теорема о резолюции гарантирует, что, если исходные дизъ- 
юнкты были истинными, то истинным будет и построенная по ним резоль- 
вента. Понятие вывода — формализованный аналог понятия доказательства. 


Рассмотрим автоматические методы поиска доказательства. Теоретический 
материал иллюстрируется примерами, и предлагаются задания для создания 
сценариев, реализующих методы поиска решений. 


Стратегия насыщения уровней 


Согласно теореме о полноте метода резолюций для того, чтобы доказать, что 
множество дизъюнктов противоречиво, достаточно построить опровержение в 5. 


При поиске опровержения строятся всевозможные резольвенты и добавляют- 
ся к множеству дизъюнктов 5. Построение резольвент продолжается до тех 
пор, пока не будет получен требуемый дизъюнкт (1. Далее необходимо про- 
следить в обратном порядке, как был получен дизъюнкт ГП, и восстановить 
вывод. При этом может оказаться, что порождено много лишних дизъюнктов, 
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которые не нужны при построении вывода. Стратегия насыщения уровней со- 
стоит в следующем: формируются множества дизъюнктов „9, 5", ..., 5", где 


О 9=5 
О 5” = {резольвента Сти С>| СЕ (5%... об") ибЕ;Е "Ц, и=1, 2, 3,... 


Когда резольвента построена, она добавляется к концу списка, сформиро- 
ванному на данный момент. 


Пример доказательства 
противоречивости множества 
Рассмотрим следующее множество дизъюнктов: 
5 = {- Ам С, - Ву С, - Атм Ву С, - Су, Аур, - В. 


Требуется доказать, что оно противоречиво, и продемонстрировать на этом 
примере использование стратегии насыщения уровней. 


50: (1) - АУС 

(2) = ВС 
(3) - Ам Вм С 
(4) = Сур 
(5) Аур 
(6)  -)р 

_ 51. (7) - АмурВиз (1) и (4) 
(8) Су Виз (1) и (5) 
(9) - Ам Сиз (2) и (3) 


(10) - ВуДиз (2) и (4) 
(11) - Ах Ву из (3) и (4) 
(12) — Ву СУ/В из (3) и (5) 
(13) - Сиз 4и (6) 
(14)  Аиз (и (6) 
(15) - Аиз (Ти (13) 

52: (16) Сиз(ри (14) 
(17) - Ау Су Виз (2) и (11) 
(18) — СурДиз (2) и (12) 
(19) - Виз (2) и (13) 
(20) - А\уВиз (3) и (13) 
(21) — Ву Сиз (3) и (14) 
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(22) Диз (4) и (8) 

(23) - Ам риз (4) и (9) 

(24) Ву Пиз (4) и (12) 

(25) Пиз (5) и (7) 

(26) — Суриз (5) и (9) 

(27) - Аиз (6) и (7) 

(28) —Сиз (6) и (8) 

(29) - Виз (6) и (10) 

(30) - Ау Виз (6) и (11) 

(31) Ву Сиз (6) и (12) 
$3: (32) - Ам Сиз (2) и (21) 

(33) Су Виз (2) и (24) 

(34) - Ам Сиз (2) и (30) 

(35) С из (2) и (31) 

(36) - Ам Сиз (3) и (19) 

(37) - Ам Сиз (Зуи (29) 

(38) Диз (4) и (16) 

(39) - Ау Виз (4) и (17) 

(40) Диз (4) и (18) 

(41) Ву) из (4) и (21) 

(42)  Шиз (4) и (29) 

(43) Су Виз (5) и (17) 

(44) — Вм Пиз (5) и (20) 

(45) Диз (5) и (23) 

(46) Пиз (5) и (27) 

(47) Ву )из (5) и (30) 

(48) Пиз (6) и (22) 


Нетрудно видеть, что при поиске тождественно ложного дизъюнкта были 
порождены лишние дизъюнкты, не относящиеся к выводу. Многие дизъ- 
юнкты порождались неоднократно. На самом деле для того чтобы построить 
опровержение, требовалось породить дизъюнкты (8), (22), (48). На рис. 21.1 
приведено дерево опровержения для 5, построенное согласно стратегии на- 
сыщения уровней. 
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5.: -АмС $.: -АУБ 
$: СО 5.: СУБ 
$/2: В 3: -О 

Зв: Я 


Рис. 21.1. Дерево опровержения согласно 
стратегии насыщения уровней 


Упражнение 


Для следующего множества дизъюнктов 
5 = {Су Мм, - Су Му, МУу- 9 - Му - ВУС-в} 


найдите тождественно ложный дизъюнкт, воспользовавшись методом насы- 
щения уровней. 


Задание по программированию 


Напишите сценарий, который по заданному множеству дизъюнктов находит 
дизъюнкт @П, используя стратегию насыщения уровней. При этом требуется 
определить число порожденных дизъюнктов, длину построенного вывода и 
время, затраченное на поиск доказательства. 


Стратегия вычеркивания 


Для решения проблемы порождения избыточного числа дизъюнктов приме- 
няется стратегия вычеркивания. 


Дизъюнкт С является поддизьюнктом дизъюнкта 0, если верно Сс р. 
Дизъюнкт ВД в этом случае называется наддиззюнктом для С. 


Стратегия вычеркивания используется вместе со стратегией насыщения уров- 
ней следующим образом: сначала выписываются дизъюнкты из множества 


(50)... ку 5" Г) 


по порядку, затем вычисляются резольвенты путем сравнения каждого 
дизьюнкта СЕ (.50 о... 5" 1) с дизъюнктом СоЕ 5". 


Если резольвента является тавтологией или наддизъюнктом какого-либо 
дизъюнкта из списка уже построенных, она вычеркивается, в противном 
случае добавляется к порождаемому списку дизъюнктов. 
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Пример применения 
стратегии вычеркивания 


Применим стратегию вычеркивания к поиску дизъюнкта П из множества 
дизъюнктов 9, рассмотренного в предыдущем примере. 


В методе насыщения уровней при построении резольвенты (9) получили 
дизъюнкт ^ Ам С, который совпадает с дизъюнктом (1), построенную ре- 


зольвенту в список не включаем. При построении резольвенты (17) был по- 
лучен дизъюнкт - Ау Су р, он также не включается в список, потому что 


является наддизъюнктом дизъюнкта - Ах С. Приведем дальнейший список 
без комментариев. 


50: (1) = Ау С 
(2) = ВУС 
(3) - Ау Ву С 
(4) - Сур 
(5) Аур 
(6) -р 
91; (7) - Ау Диз (1) и (4) 
(8) Су Виз (ри (5) 
(9) - Ву Виз (2) и (4) 


(10) - Ау Ву из (3) и (4) 
(11) — Ву Су Пиз (3) и (5) 
(12) - Сиз (4) и (6) 
(13) Аиз (5) и (6) 
(14) - Аиз (Ги (12) 
52: (15) — Сиз (1) и (13) 
(16) - Виз (2) и (12) 
(17) Диз (4) и (8) 
(18) Пиз (6) и (17) 


В этот список занесено 12 порожденных резольвент в отличие от 42 дизъюнк- 
тов из списка, полученного в результате использования стратегии насыщения 
уровней. Для построения опровержения требовалось породить дизъюнкты (8) 
и (17). Дерево вывода такое же, как и дерево, полученное по методу насыще- 
ния уровней (см. рис. 21.1), лишь нумерация дизъюнктов иная. 
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Упражнение 


Для следующего множества дизъюнктов 
5 = {Су Му О, - Су МУ 5, Му- ,, - Му, - Бу С - В} 


найдите тождественно ложный ДИзЗЪюнНКтТ, используя стратегию вычеркивания. 


Задание по программированию 


Напишите сценарий, который по заданному множеству дизъюнктов находит 
дизъюнкт Ч, используя стратегию вычеркивания. При этом требуется опре- 
делить число порожденных дизъюнктов, длину построенного вывода и вре- 
мя, затраченное на поиск доказательства. 


Линейная резолюция 


Линейная резолюция соответствует следующей схеме поиска доказательства. Мы 
выбрали некоторое утверждение из исходного множества, применили к нему и 
к другому утверждению правило резолюции, получили резольвенту. К. получен- 
ной резольвенте и какому-либо другому дизъюнкту опять применили правило 
резолюции, получили следующее высказывание, и т. д. На каждом этапе по- 
строения доказательства одно из высказываний — это только что полученное в 
результате применения правила резолюции утверждение. Процесс повторяется 
до тех пор, пока не будет получен тождественно ложный дизъюнкт. 


Рассмотрим множество дизъюнктов 5 = {51, 5), ..., эи}. Возьмем дизъюнкт (д из 
5. Линейный вывод дизъюнкта С из множества дизъюнктов 5 — это вывод, изо- 
браженный с помощью схемы на рис. 21.2, в котором выполняются условия: 


1. Для {[=0, 1, .., К-1 дизъюнкт СнатГ есть резольвента дизъюнкта С; 
(называемого центральным дизъюнктом) и В, (называемого боковым). 


2. Каждый В; либо принадлежит 5, либо есть С; для некоторого /, такого, 
что] < [. 


С Вс 
1 В, 
2 В, 


Рис. 21.2. Схема построения линейного вывода 
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Задача об автомобилях 

Внимание трех девушек Екатерины, Елены и Евгении привлек проезжаю- 
щий мимо автомобиль. 

С Екатерина сказала: "Эта машина изготовлена в США, марка ее — Форд"; 


О Елена возразила: "По-моему, эта машина из Германии, ее марка — Мер- 
седес"; 


С Евгения добавила: "Марка машины — Ауди, изготовлена не в США". 


Оказалось, что каждая из трех девушек права только в одном из своих вы- 
сказываний. Какой марки автомобиль, и в какой стране изготовлен? 


Введем следующие обозначения: 

О Л — автомобиль изготовлен в США; 

О С -— автомобиль изготовлен в Германии; 
С РЫ— марка автомобиля Форд; 

С М — марка автомобиля Мерседес; 

О Ар— марка автомобиля Ауди. 


Высказывания трех девушек с учетом того, что одно из них истинно, а одно 
ложно, записываются с помощью формул исчисления высказываний сле- 
дующим образом: 


С Екатерина: А & - Ру - А&Е 
С Елена: С & - МУ- С&М 
С) Евгения: С& -Ау- С&А 


Утверждение, что автомобиль изготовлен в одной из двух стран, соответст- 
вует формуле | 
К & - Су- А& С. 


И, наконец, утверждение, что проезжающий автомобиль принадлежит ка- 
кой-либо из трех марок: 


Е& - М&- Ат - Е& М&- АУ- Е& - М&А. 
Мы хотим определить, следует ли утверждение Р & С (автомобиль марки Форд, 
изготовлен в Германии) из рассматриваемых пяти утверждений. Формулу 
(^& - Гу- А& В & (С&- Му- С& М & (С&- АУ-С&А & 
(Е& - М& - Ау - Е& М&- Ау- Е& - М& А) &- (ЁЕ& 0) 
преобразуем к КНФ и получим следующее множество дизъюнктов: 
5 = {Ам А - Ку - Е СМ М, - Су- М, С\УА, - СУ-А, Ву С -В\у-Сс, 
- Рут Му-А, - Еу- МУА, - Ру МУТА, Еу- МУ-А, 
Ку ММА, - Ру- 0. 
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Дизъюнкты множества 5 будем обозначать 51, :55, ..., 914. В качестве верх- 
него дизъюнкта возьмем дизъюнкт 51. Построим линейный вывод, изобра- 
женный на рис. 21.3. | 


$: КУР Зв: —В м -С 5 
5.5: РУ -С 5.4: ^Рм-б 
Зв: ^С 5;: УМ 
3.7: [1 512: Еу-Му-А 
Зв: ГМ -А 55: СУА 
Зо: ГУС Зв: С 
Зо: Е $: -Р м -Му-А 
$1: `Мм-А З.7: М 
5.2. —А $5: АМС 
3.3: © 35: С 
5... @ 


Рис. 21.3. Линейное опровержение для задачи об автомобилях 


Упражнения 
1. Постройте линейный вывод для решения задачи об автомобилях, исполь- 
зуя в качестве верхнего дизъюнкта дизЪъюнкт 5 |: 


2. Постройте опровержение согласно стратегии насыщения уровней для 
решения задачи об автомобилях. 


3. Постройте опровержение согласно стратегии вычеркивания для решения 
задачи об автомобилях. 


Задание по программированию 


Напишите сценарий, который по заданному множеству дизъюнктов и выво- 
ду определяет, является ли этот вывод линейным. 


Входная резолюция 


Рассмотрим некоторые частные случаи линейной резолюции. 


Каждый дизъюнкт исходного множества 5 назовем входным дизъюнктом. 


466 Часть Ш. Решение вычислительных задач с использованием /ауаЗспр! 


Входная резолюция — это резолюция, в которой один из дизъюнктов входной 
ДИЗЪЮНКТ. 


Входной вывод — линейный вывод, в котором каждое применение резолю- 
ции является входной резолюцией. 


Входное опровержение — входной вывод дизъюнкта П из 5. 


Задача о формировании экипажа 


Формируется экипаж для кругосветного путешествия. Каждый кандидат про- 
ходит тестирование. Окончательное слово остается за командиром экипажа. 
Три человека Семен, Максим и Дмитрий проходят тестирование. После бесе- 
ды с ними командир высказал свое мнение помощнику необычным образом: 


С я возьму в путешествие одного из кандидатов; 

С если я возьму Семена, но не возьму Максима, то возьму также и Дмитрия; 
О членами экипажа станут либо Дмитрий и Максим, либо ни один из них; 
С если в экипаж будет принят Дмитрий, то также будет принят и Семен. 


Никто не усомнился в том, что высказывания командира экипажа истинны. 
Дмитрий после собеседования на вопрос друга о том, отправляется ли он в 
кругосветное путешествие, ответил утвердительно. Прав ли Дмитрий? 


Введем следующие обозначения: 
С С — Семен отправится в путешествие; 
С М-— Максим отправится в путешествие; 
ПС РБ — Дмитрий отправится в путешествие. 
Запишем формулами четыре высказывания командира экипажа и ответ 
Дмитрия: 
ПО А: Су Мур 
ОБ: С& -2>мМ 
О Б: & МУ- &-М 
ОА: Сс 
в с:) 
Формулу, построенную согласно теореме 2 о логическом следствии: 

_ (СуМур) & С&- Въ М & (9О& МУ- &- М & Оъо&-р, 
приведем к КНФ и получим интересующее нас множество дизъюнктов: 

5 = {Су Му Б, - Су МУ 0, Му - Б, - Му, - БуСс,- В. 


Считаем, что наши исходные дизъюнкты пронумерованы от 5! до 45. По- 
строим входное опровержение в 5 (рис. 21.4). 
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$5: 9 $: -Су0)\умМ 
$7: -СУМ $: Ву-М 
$: -Суб $.: СУМУО 
$: МО $: Ву-М 
$ 


5:0: О [2 6: О 
5.4: 9 


Рис. 21.4. Линейное опровержение для задачи о формировании экипажа 


Обратите внимание на то, что в линейном выводе на рис. 21.4 все боковые 
дизъюнкты являются входными дизъюнктами, поэтому и опровержение — 
входное. 


Упражнение 


Постройте входное опровержение для задачи об автомобилях, используя 
дизъюнкт, отличный от 51, в качестве верхнего дизъюнкта. 


Задание по программированию 


Напишите сценарий, который по заданному множеству дизъюнктов и выво- 
ду определяет, является ли этот вывод входным. 


Единичная резолюция 


Рассмотрим еще один частный случай линейной резолюции, так называе- 
мую единичную резолюцию. 


Единичная резолюция — это резолюция, в которой, по крайней мере, один из 
дизъюнктов является единичным. 


Единичный вывод — линейный вывод, в котором каждое применение резо- 
люции является единичной резолюцией. 


Единичное опровержение — единичный вывод дизъюнкта @ из 5. 


Пример единичного опровержения 


Построим единичное опровержение для задачи о формировании экипажа. 
Напомним, что рассматривается множество дизъюнктов 


5 = {Су МУ, - Су Му В, Му- 5, - Му, - ВУсС- в. 
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На рис. 21.5 представлено единичное опровержение. Заметим, что это опро- 
вержение не является входным. При получении дизъюнкта 1 использова- 
ЛИСЬ ДИЗЪЮНКТЫ 51| И 497, И ДИЗЪЮНКТ 57 не является входным. 


$. Ом-М $5: 0 

$7: М $: -Су0\УМ 
$3: -СУО0 $5: -О 

$: =С 5, СуУМУО 
Зо: МУО _/® 55. 79 

$14: М $7: -М 

5,2: 9 


Рис. 21.5. Единичное опровержение для задачи о формировании экипажа 


Упражнение 


Постройте единичное опровержение для задачи об автомобилях, используя 
дизъюнкт, отличный от 55|, в качестве верхнего дизъюнкта. 


Задание по программированию 


Напишите сценарий, который по заданному множеству дизъюнктов и выво- 
ду определяет, является ли этот вывод единичным. 


Эквивалентность входной 
и единичной резолюций 


Теорема об эквивалентности входной 
и единичной резолюций 


Для противоречивого множества ДиИзъюнктов 5 единичное опровержение 
имеется тогда и только Тогда, когда имеется входное. 


Доказательство. Пусть А — множество пропозициональных переменных, 
входящих во множество дизъюнктов ‚,° (база .5). Если А состоит из единст- 
венного элемента О, то среди множества дизъюнктов 5 имеются единичные 
дизъюнкты Ои "О. Резольвентой дизъюнктов Ои ” О является дизъюнкт П. 
Вывод дизъюнкта [ из 5 является как входным, так и единичным. Следова- 
тельно, для этого случая теорема верна. 
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Предположим, что теорема верна для случая, когда множество А состоит из { 
элементов, где /< {< и. 


Пусть имеется единичное опровержение в 5. Тогда множество дизъюнктов 5 
должно содержать хотя бы один единичный дизъюнкт 2, где Ё — литерал. 
Множество дизъюнктов 5” получаем из 5 исключением дизъюнктов, содер- 
жащих [, и вычеркиванием литерала - Ё из остальных дизъюнктов. По- 


скольку множество 5 противоречиво, то противоречивым будет и множество 

5”, т.к. 5” мы получили по правилу единичного дизъюнкта. Раз имеется 

единичное опровержение в .5, то должно существовать единичное опровер- 
, | 

жениев 5. 


База множества дизъюнктов 5” содержит и или менее элементов. По индук- 
ционному предположению имеется 5”-входное опровержение 11. Пусть # — 
вывод, получающийся из 1 возвращением литерала - Г в те дизъюнкты, из 


которых он был вычеркнут. 
Пусть литерал ТГ — дизъюнкт, получившийся в корне дерева для вывода /. 


Очевидно, что Х является 5-входным выводом дизъюнкта 7 из 5. Дизъюнкт 
Г— это либо Ч, либо - Ё. Если Гесть [П, то мы построили входное опро- 


вержение в 5. Если же Т есть  [, то строим резольвенту Тс дизъюнктом [, 


который является входным дизъюнктом. Таким образом, и в этом случае мы 
построили входное опровержение. 


Пример исключения дизъюнктов 


Для задачи о формировании экипажа на рис. 21.6 приведено единичное оп- 
ровержение. Рассматриваемое множество дизъюнктов 


5 = {Су Му Б, - Су Му Б, М\у - БВ, - Му, - Эу С, - В} 


содержит единичный дизъюнкт ^ 2. 


$4: М $5: -СуМ 
$3: С $: СУМ 
Зв: М $4: М 

Е О 


Рис. 21.6. Единичное опровержение для задачи о формировании 
экипажа после сокращения дизъюнктов 


Построим множество 5” исключением из 5 всех дизъюнктов, содержащих 
литерал - 0), и вычеркиванием из оставшихся дизъюнктов литерала ДО. По- 


лучим 
5“ = {Су М, - СУМ, - М. 


16 Зак. 834 
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На рис. 21.6 приведем единичное опровержение 11 в 5". Это опровержение 
входное. Вывод ( получим, возвращая литерал 0 в те дизъюнкты, из кото- 
рых он был вычеркнут. Получим вывод 6, изображенный на рис. 21.7. 


-Муб -СуМуб 
Суб СуУМУО 
МУО -Муб 

О 


Рис. 21.7. Входной вывод сокращенного дизъюнкта 


Вывод Х является 5-входным выводом дизъюнкта 0 из 5. На рис. 21.8 по- 
строено 5-входное опровержение. 


МУ СМУ 
-СуО СуМУО 
МУО -Муб 

О О 

О 


Рис. 21.8. Входное опровержение для задачи о формировании экипажа 


Предположим, что имеется входное опровержение в 5. Множество 5 должно 
содержать, по крайней мере, один единичный дизъюнкт [. Такой литерал 
необходим при получении дизъюнкта [, один из исходных дизъюнктов 
должен быть входным. Обозначим через № множество дизъюнктов, в кото- 
рых содержатся литералы [ или - [, через Ке$(7, С) — резольвенту дизъ- 


юнктов Уи С. Построим множество 

5* = 5 {Вез([, С) | С= 5} - М. 
Так как существует 5-входное опровержение, то должно существовать „5”- 
входное опровержение. Но множество 5” содержит и или менее пропози- 
циональных переменных. По индукционному предположению можно .по- 
строить единичное опровержение в 5”. Каждый дизъюнкт из 5” является 
либо дизъюнктом из 55, либо резольвентой, полученной применением еди- 


ничной резолюции к дизъюнкту Ё и некоторому дизъюнкту из 5. Поэтому 
можно построить единичное опровержение в 5. Теорема доказана. 


Пример построения входного опровержения 


Рассматриваемое множество дизъюнктов таково: 
5 = {Су Му Б, - Су Му, Му- в, - М\у,- ВусС- В. 
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На рис. 21.3 построено входное опровержение в 5. Множество 5 содержит, 
по крайней мере, один единичный дизъюнкт. Обратите внимание на по- 
строение резольвенты по дизъюнктам 510 и 5. В нашем случае это дизъюнкт 
- р. Множество М совпадает с ‚5, т. к. каждый дизъюнкт из 5 содержит либо 


р, либо - 2. 
Есть множество 
{Вез(Г, С) | Се $} = {Су М, - СУМ, - М}. 
Построим множество 
5$ = 59 {Вез(Ё, С)| СЕ} - М= {СУ М, - СУМ, - М. 


На рис. 21.9 изображено ,5!-входное опровержение. Заметим, что оно одно- 
временно является и единичным опровержением. 


Вез(0 м -М, -0) = -М Ве$(-0, -Су0ОмМ) = -СумМ 
Вез(СуМм, -0) = Сум 


Кез(0 у -М, -0) = -М 


Рис. 21.9. Входное опровержение для множества $1 


На рис. 21.10 показано, как по 5!-входному опровержению можно постро- 
ить единичное опровержение в 5. 


-Муб -0 

-М -СуМуб 
Суб О 

С СуМУО 
Муб 0 

М -МУуб 

О 0 

|= 


Рис. 21.10. Единичное опровержение, построенное по входному 


Упражнение 


Определите, можно ли построить единичное опровержение для задачи о 
формировании экипажа. 
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Задания по программированию 


1. Напишите сценарий, который по заданному входному 5-опровержению 
строит единичное 5-опровержение. 


2. Напишите сценарий, который по заданному единичному 5-опровержению 
строит входное 5-опровержение. 


Свойства входной 
и единичной резолюций 


Единичную и входную резолюцию легче реализовать, чем другие стратегии 
поиска доказательства, но у входной и единичной резолюций есть один су- 
щественный недостаток: обе стратегии не являются полными. 


Задача о кандидатах в министры 


В одной стране проживают рыцари, которые говорят только правду, лжецы, 
которые всегда лгут, и так называемые нормальные люди. Нормальный че- 
ловек может говорить как правду, так и ложь. Три различные партии 
(обозначим их Ё, Ри С) выдвигают на пост министра трех кандидатов: А, В 
и С соответственно. Каждый из кандидатов, выступая от имени своей пар- 
тии, предложил программу развития экономики. После встречи с президен- 
том во время пресс-конференции на вопрос журналиста: "Программа какой 
партии получила одобрение президента?" каждый из кандидатов ответил: 


С кандидат А: одобрение получила не наша программа; 


С] кандидат В: одобрение получила не та программа, которую предложил 
кандидат А; 


С кандидат С: к сожалению, одобрена не наша программа. 


В этот же день во время прямого телеэфира телеведущая задала кандидатам 
тот же самый вопрос: "Программа какой партии получила одобрение прези- 
дента?" и получила уже другие ответы: 


О кандидат А: одобрение получила программа не партии Ё 
С кандидат В: одобрение получила программа партии С; 
С кандидат С: одобрение получила программа, предложенная кандидатом 4. 


Известно, что один из кандидатов — рыцарь, один — лжец, и один — нор- 
мальный человек, который в одном случае сказал правду, а в другом ложь. 
Программа какой партии получила одобрение президента? 


Для решения задачи введем обозначения. Обозначим через Ё (соответствен- 
но Ри 0) утверждение, что получила одобрение президента программа, 
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предложенная партией Ё (соответственно Ри С). Тогда высказывания кан- 
дидатов журналисту и ведущему имеют следующий вид: 


О кандидат 4: - ЕЁ Е 
С кандидат В: - ЕЁ, С: 
С кандидат С. - (С, ЕЁ. 


Так как известно, что один из кандидатов — рыцарь, один — лжец и один — 
нормальный человек, то возможны следующие шесть вариантов, которые 
представлены в табл. 21.1. 


Таблица 21.1. Варианты кандидатов | 


№ Кандидат А _ Кандидат В Кандидат С 

1 рыцарь лжец нормальный человек 
2 рыцарь нормальный человек лжец 

3 лжец рыцарь нормальный человек 
4 лжец нормальный человек рыцарь 

5 нормальный человек рыцарь лжец 

6 


нормальный человек лжец рыцарь 


Учитывая, что высказывания рыцаря истинны, лжеца ложны, а из двух вы- 
сказываний нормального человека одно ложно, а одно истинно, получаем 
следующую формулу, описывающую условие задачи и соответствующую 
рассмотренным шести вариантам: 


- Е& - Е& Е& - С(С& (1 С &- Е Сб& Ву 
- Е& - Е& (- Е& - СуУЕ& 0) & С&-Е\ 
Е& Е& - Е& С(& (- С &- Е СбС& Е\у 
Е& Е& (- Е& - СуУЕ& 0) & - С& Е\у 
(- Ех РГУ Е& - АР & - Е& С(& С& - Е\ч 
(- Е& Ру Е& - В & Е & - С& -С&Е 
Эту формулу можно упростить, выполняя эквивалентную замену формул вида 
& По и //ПФ/ 
Получим следующую формулу: 
= Е& - Е& (- Е& - СуУЕ& О & С& -Е\ 
Е& Е& (- Е& - СуЕ& 0) & - С& Еу 
(- Е& РГУ Е& - А &- Е& С& С&-Е\у 
(- Е& Гу Е& - А & Е& - С& -С&Е. 
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Приведем последнюю формулу к КНФ. Для этого вычислим ее значения во 
всех интерпретациях и результаты представим в табл. 21.2. 


Таблица 21.2. Таблица истинности для формул задачи 


Е Е С Значение формулы 
и и И Л 
И И Л Л 
И Л И Л 
И Л Л И 
Л и и и 
Л и Л Л 
Л Л и Л 
Л Л Л Л 


Заметим, что одобрение президента получила только одна программа, по- 
этому рассмотрим формулу 


Е& - Е& - Су- Е& Е& - Су- Е& - Е& С. 
Построим для этой формулы КНФ, а результаты представим в табл. 21.3. 
Таблица 21.3. Таблица истинности 


Значение формулы 


эээ $ззз$хт 
эээ Жз$э$$ тм 
эз$&$ $5 2$3ъ $9 
$ $5 3$53233 


Предположим, что мы хотим показать, что одобрение получила программа 
партии РЁ. После построения КНФ по табл. 21.2 и 21.3, и добавления пред- 
полагаемого следствия, интересующее нас множество дизъюнктов будет сле- 
дующим: 
5 = {- Ем - Ру - С, - Ем - Ем С, - Ем Еу - С, Еу - ЕУ - С, 
Ем - Ем С, Ем Еу - С, Ем Еу (Ц, - ЕВ. 
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Сократим множество 5 по правилу единичного дизъюнкта, получим множе- 
ство 551: 


{- Ру - С, - Ему С, Еу- С, Ру С. 
Это множество противоречиво, если противоречиво исходное множество 5. 


Линейное опровержение с верхним дизъюнктом - Ру - С изображено на 


рис. 21.11. Заметим, что линейный вывод на рис. 21.11 не является входным, 
т. к. боковой дизъюнкт - Ане содержится в 5. 


Рус РС 
Е $ ЕубС 
С Еу-С 
Е 
|= 


Рис. 21.11. Линейное опровержение для задачи о кандидатах в министры 


Для множества дизъюнктов 
{- Ем - С, - Ем С, Ру - С, Ех 0} 


нельзя построить единичного опровержения, а, следовательно, по теореме 
об эквивалентности входной и единичной резолюции нельзя построить и 
входное опровержение. Таким образом, методы входной и единичной резо- 
люций не являются полными. 


Теорема о полноте метода 
линейной резолюций 


Пусть С — дизъюнкт, принадлежащий противоречивому множеству дизъ- 
юнктов 5, если 5 - {С} выполнимо, то существует линейное опровержение 
из 5 с верхним дизъюнктом С. 


Доказательство. Будем доказывать теорему индукцией по числу элементов 
базы А множества дизъюнктов 5. Если А состоит из одного элемента О, то 
во множестве ‚5 должен быть и элемент - О. Их резольвентой является 
дизъюнкт [. Так как 5- {С} выполнимо, то либо литерал О, либо литерал 
— О должен совпадать с литералом С. Теорема для этого случая доказана. 


Предположим, что теорема верна для случая, когда А состоит из 7 элементов 
при | < 1< п. Рассмотрим множество А, состоящее из и+1 элемента. 


Пусть С — единичный дизъюнкт, совпадающий с литералом [. Пусть 5 
имеет вид: 


5 = {Ё,.Аум Ё, Ам [, ..., Ату [, ВУ-Ь,..., ВУ Ь Вь..., К}. 
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Дизъюнкты Ау, ..., Ко не содержат ни литерала [, ни литерала - Ё. Постро- 


им множество 5; удалением из 5 дизъюнктов, содержащих [, и вычеркива- 
нием литерала - [, из остальных дизъюнктов. Множество 5! имеет вид 


5 — {В1, (о Ву, А, 6 Ко}. 


Так как множество 5 — противоречиво, то и множество дизъюнктов 5! — про- 
тиворечиво. Пусть Т| — противоречивое подмножество 5; такое, что каждое 
собственное подмножество Т; выполнимо. Для того чтобы получить такое под- 
множество, надо перебрать всевозможные подмножества множества 51. 


Множество 7, должно содержать дизъюнкт Ё|, который был получен из не- 
которого дизъюнкта вида В; м - [, принадлежащего множеству дизъюнктов 
5, до вычеркивания литерала - 2. Если бы это было не так, то все дизъюнк- 
ты множества Т, принадлежали бы множеству дизъюнктов {Ау, ..., Ао}. По 
условию теоремы множество дизъюнктов | 

9 — {С} = {А! у Ё, Ам Ё...., Ату [, Ву Ё, ..., Ву Е, К, ..., Ка} 


выполнимо. Следовательно, существует интерпретация, в которой выполни- 
мо множество дизъюнктов {А1, ..., Ао}. Но тогда и множество Т\ являлось 
бы выполнимым, а это противоречит построению множества 7\. Итак, во 
множестве Т; есть дизъюнкт Ё|, совпадающий с В;. 


Множество дизъюнктов 7; - {Ё\} выполнимо, т. к. Т| строилось таким обра- 
зом, чтобы каждое его собственное подмножество было выполнимым. Мно- 
жество 7; содержит п или менее элементов, по индукционному предполо- 
жению существует линейное опровержение ДР! из Т, с верхним дизъюнктом 
Е. Преобразуем вывод Д\: возвратим литерал - Ё в те дизъюнкты, из кото- 


рых он был вычеркнут, за исключением верхнего дизъюнкта Ё|. Дизъюнкт 
Ё! получим в результате выполнения резолюции дизъюнкта 2 с дизъюнктом 
Е м - Ё. Таким образом, построили вывод Д либо дизъюнкта Ш, либо 


дизъюнкта - Ёв 5. Если построили вывод дизъюнкта - [, то строим резоль- 
венту дизъюнктов - ри [, получаем линейный вывод дизъюнкта Ц из 5. 
Теорема в этом случае доказана. 

Предположим, что С — не единичный дизъюнкт. Пусть [, — первый (самый 
левый) литерал в С, т.е. С= Гу С;, где С! — непустой дизъюнкт. Пусть 


5 — множество, получаемое из 5 удалением дизъюнктов, содержащих 
дизъюнкт = Д, и вычеркиванием литерала [, из всех оставшихся дизъюнктов. 


Если множество 5 имеет вид: 
9 = {Ём С, БУ С», ..., [у Си, 7 УВ, .... 7 Ем Вь К, ..., К}. 
то множество .51 будет выглядеть так: 
91 = {С1, С», ..., Си Кьь ..., Ка}. 


Так как множество 55 — противоречиво, то и множество дизъюнктов ,1 будет 
противоречивым. Рассмотрим множество 


5 — {С} — {С5, ...о Ст, А, ... Ка}. 
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Докажем, что множество 51 — {С}} выполнимо. Пусть / — интерпретация, в 
которой выполнимо множество дизъюнктов 


5- {= {УС ..., Ёу Си, - ГУ В, („= ЁМ Вь В .... В}. 


Такая интерпретация существует по условию теоремы. Так как 5 невыполни- 
мо, то дизъюнкт С должен быть ложен в /. Поэтому литерал /[, ложен в интер- 
претации ./. В интерпретации / истинны дизъюнкты Су, С›, ..., Си, К, ..., Ка 
следовательно, множество .51 - {С!} истинно в ./, Т. е. 51 — {С} выполнимо. 


Поскольку множество элементов базы 51 содержит и или менее символов, то 
по индукционному предположению существует линейный вывод ДО; дизъ- 
юнкта из 51 с верхним дизъюнктом С\. Возвращая литерал [ во все дизъ- 
юнкты, из которых он ранее был вычеркнут, мы получим линейный вывод 
р! дизъюнкта [ из 5 с верхним дизъюнктом С. 


Рассмотрим множество 
{Пы (5- {С} = {Ё, Е С, Ё У С,, ..., Ёу Си, > Ём В, ..., 
| - Ём Ву, К, ..., Ка}. 


Докажем, что оно противоречиво. Предположим, что это не так, т. е. суще- 
ствует интерпретация / в которой {Г} ч (5 - {С}) выполнимо. В этой ин- 
терпретации значение литерала [ истинно, но тогда в интерпретации / 
множество 5 истинно, что противоречит условию теоремы. Итак, множество 
дизъюнктов {7} (5 - {С}) противоречиво. Множество 5 - {С} выполнимо, 
[. — единичный дизъюнкт. Ранее доказали, что существует линейное опро- 
вержение 2) с верхним дизъюнктом /[ из множества {1} ‹/ (5- {С}). Объеди- 
няя выводы Ду и 05, получим линейное опровержение из 5'с верхним дизъ- 
юнктом С. Теорема доказана. 


Задача о поиске острова сокровищ 


Предположим, что некоторый искатель приключений хочет добраться до ост- 
рова сокровищ. Путешественнику предложили три карты: Х, Ги /. Только 
одна из карт правильная и указывает путь к острову сокровищ. В комнате, где 
лежали карты, находились пятеро колдунов: 4, В, С, Ви Е. Каждый колдун 
был либо рыцарем, либо лжецом и каждый дал путешественнику совет: 


О Е либо А — лжец, либо Си О — однотипны (либо оба рыцари, либо оба 
лжеца); 


О Л: Х-— правильная карта; 

СО В: У— правильная карта; 

С С. неверно, что Аи В — оба лжеца; 
С р: либо А — лжец, либо В — рыцарь. 
Какая же из карт правильная? 
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Докажем, что 7У— правильная карта. Будем обозначать через А утверждение 
"А — рыцарь" (аналогично для В, С, ри РЁ). Обозначим через Х утверждение 
"Х — правильная карта" (аналогично для Уи 1). Запишем сначала советы кол- 
дунов и предполагаемое следствие формулами исчисления высказываний: 


ОА: Е - Еу(С®Ф п 

О Р: Ах 

ОБ: Въ? 

ОА С -СА&- В) 

О 3: Бе - АВ 

О С:7Т 

Построим КНФ для формулы вида 
А&Б&В&ЕА&Е&- С. 


После преобразований получено множество дизъюнктов 5, приведенное в 
табл. 21.4. 


Таблица 21.4. Исходное множество дизьюнктов 


5 


ООО ОО 


В табл. 21.4 выделим те дизъюнкты и литералы, которые будем исключать из 
множества после преобразования по правилу единичного дизъюнкта (дизъюнкт 
- 7). Получаем множество дизъюнктов, размещенных в табл. 21.5. 


Таблица 21.5. Дизьюнкты после сокращения по ^У 


, 
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Таблица 21.5 (окончание) 


После преобразования по правилу единичного дизъюнкта (дизъюнкт - В) 
получим множество дизъюнктов, размещенных в табл. 21.6. 


Таблица 21.6. Дизьюнкты после сокращения по ^В 


Линейное опровержение, построенное из последнего множества дизъюнк- 
тов, может быть таким: 


< 51: Ем См О, 52: Еу- Су)> 53: Ех О; 
< 513: Ем р, 54: Еиу- Су- >> 54: Е С 
< 514: Ем С, 555: - Е Су >55: См-0; 
< мя Су-РБ, 55: Еи Су О> >56: Ем -О; 
< 516: Ём - О, 513: Ечу > >51: Е; 
< 517: Ё, 53: - Ем Су) > 5: - Су В; 
< 518: См ВБ, 59: Су- А> - 59: - АУ В; 
< 519: - Ам В, 512: Ву А > -> 520: Б; 
< 50: Д, 55: - Еи Сму-В> - 521: - Ем С; 
< 551: - ЕМС, 517: Е > >> 552: С; 
< 525: С, 510: - СуУА> -> 553: А; 
< 53: А, 5: 7 Бу-А>- 554: -Б; 
< 574: -Р, 555: > Ц. 
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Упражнения 


1. Определите, какие дизъюнкты множества дизъюнктов ,5 в задаче об авто- 
мобилях могут быть использованы в качестве верхних дизъюнктов в ли- 
нейном выводе. 


2. Определите, какие дизъюнкты множества дизъюнктов 5 в задаче о кан- 
дидатах в министры могут быть использованы в качестве верхних дизъ- 
юнктов в линейном выводе. 


Задания по программированию 


3. Напишите сценарий, который по заданному множеству дизъюнктов 5 
определяет те дизъюнкты, которые могут быть использованы в качестве 
верхних дизъюнктов в линейном выводе. 


4. Напишите сценарий, который по заданному множеству дизъюнктов ‚5 и 
некоторому дизъюнкту из 5 определяет, можно ли построить линейный 
вывод с этим верхним дизъюнктом, и строит вывод, если это возможно. 


Семантическая резолюция 


При построении опровержения можно придерживаться определенной стра- 
тегии. Каждая из стратегий имеет свои достоинства и недостатки. Один из 
основных вопросов стратегии состоит в том, полна ли она, т.е. всегда ли 
можно построить опровержение из противоречивого множества дизъюнктов 
согласно выбранной стратегии. 


При поиске доказательства порождается большое число дизъюнктов. кото- 
рые в дальнейшем могут не использоваться. Для того чтобы сократить мно- 
жество порождаемых дизъюнктов, исходное множество 5 разбивается на два 
множества %1 и %2. При построении вывода не разрешается строить резоль- 
венту по двум дизъюнктам, принадлежащим одному множеству. При раз- 
биении множества 5 на два множества У1 и У> будет использована произ- 
вольная интерпретация /. 


Пусть 5 — противоречивое множество дизъюнктов, / — произвольная ин- 
терпретация. Во множество %| включим все дизъюнкты из 5, истинные в 
интерпретации [‚ а во множество »› — все дизъюнкты, ложные в /. 


Пример разбиения множества дизЪъюнктов 
При решении задачи о кандидатах в министры было построено следующее 
множество дизъюнктов: 
5 = {> Ем - Ду - С, - Еух- Рм С, - Ему Ёу = С, Ему - Ё\у = С, 
Ем - Ему С, Ем Ру - С, Ем Еу С-В. 
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Рассмотрим интерпретацию / = {Ё, - РА С}. В этом случае множества 1 и > 
будут следующими: 


С >, = {- Ех - Ру - С, - Еу- Е\м С, Еу- Ему - (0, Ем - ЕМ С, 
Ем Е\ - С, Ем ЁЕу (} 


С У) = {- Еу Ру- б- В 


Интерпретация / = {- Е, А С} разобьет исходное множество 5 на следую- 
щие два множества 


С >! = {- Еу- Ру - С, - Ет - Ем С, - Ем Еу - С, Ем - Ем С, 
Ем Ем - С, Ем Еу (0-Е 


С) = {Ем- Ру- & 


Лемма. Пусть 5 — противоречивое множество ДИЗЪЮНКТОв, [— произволь- 
ная интерпретация. Во множество У1 включим все дизъюнкты из 5, истин- 
ные в интерпретации / а во множество »2 — все дизъюнкты, ложные в /. 
Доказать, что У и х› — непустые множества. 


Предположим сначала, что множество У пусто, т. е. множество 5 совпадает 
с множеством »1. Мы нашли интерпретацию, в которой 5 выполнимо, а мы 
рассматриваем противоречивое множество 5. Следовательно, множество >> 
не может быть пустым. 


Предположим теперь, что множество > пусто, т. е. мы нашли интерпретацию, в 
которой все дизъюнкты из 5 ложны. Но тогда мы должны признать, что в 
дизъюнктах 5; для / = |,..., и нет ни одной контрарной пары. Если бы это было 
не так, то во множестве дизъюнктов 5 была бы пара дизъюнктов Эл И Эр вида: 


5 <> Алм Ём В И 5.2 <> Ару- Ём Вр. 


В выбранной интерпретации / значения дизъюнктов 5 И 5р отличались бы: 
одно из них должно быть истинным, другое ложным. Мы же предположили, 
что все дизъюнкты ложны. Следовательно, во множестве 5 нет контрарных 
пар. По интерпретации / = {ту, то, .... ти построим интерпретацию /” = 
= {ть 7 т, ..., ^ ть. В интерпретации /” все дизъюнкты из 5 истинны; 
как и в первом случае, мы нашли интерпретацию, в которой .5 выполнимо, а 
этого не может быть, т. к. 5 — противоречиво. Следовательно, предположе- 
ние, что У; пусто, неверно. Лемма доказана. 


С целью дальнейшего сокращения числа порождаемых дизъюнктов на мно- 
жестве элементов базы задается отношение порядка. При построении ре- 
зольвенты по дизъюнктам 5] и 55 удаляемый литерал в 5! — наибольший в 
этом дизъюнкте. 


“ 
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Пример построения резольвент 


Рассмотрим следующее множество диИЗзъЪюнКктов: 
5 = {- Ех - Ку - С, - Ем - Ем О, - Ем Е\у - С Ем - ЕМУ = С, 
Ем - Ем С, Ем Ёу - С, Ем Еу (0, -Е. 
Если в качестве ОДНОГО ИЗ ДИЗЪЮНКТОВ ВЗЯТЬ ДИЗЪЮНКТ 51, то можно постро- 
ить следующие резольвенты: 


С - Ру - С резольвента 51 и 54 
О - Е3у - С резольвента 5} и 53 
О - 3Е\у - Е резольвента 51 и 5 


Если задан порядок Ё > ЁЕ>С, то допустимой является первая резольвента, если 
порядок Ё> Е >С, то следует строить вторую резольвенту, и, наконец, если по- 
рядок определен С > Ё> Ё то должна быть построена третья резольвента. 


Определение семантического конфликта 


Рассмотрим множество дизъюнктов 5, выберем некоторую интерпретацию /, 
на элементах базы 5 зададим порядок Р. 


Конечное множество дизъюнктов вида {Ё|, Ё>,, Ё,, №}, где а > 1 называется 
семантическим конфликтом, если Е1, Е›, ..., Еа и М№ удовлетворяют следую- 
щим условиям: 


1. Дизъюнкты Ё1, >, ..., Ё. ложны в интерпретации /. 


2. Пусть А! = №, для каждого [= |, ..., 4 имеется резольвента А+] дизъюнк- 
тов А; и Е! (рис. 21.12). 


3. Тот литерал в Ё,, по которому строится резольвента, наибольший в Ё.. 
4. Дизъюнкт Ко+1 Ложен в интерпретации /. 


Дизъюнкт А+; называется семантической или Р/-резольвентой, обозначать 
семантическую резольвенту будем следующим образом: 


{Е, Е, 9 Е , №) —> Ко-+1. 


К, = М Е, 
В, > 
к Е 


3 


Рис. 21.12. Схема построения семантической резольвенты 
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Пример построения 
семантического конфликта 


Рассмотрим множество дизъюнктов, построенное при решении задачи об 
автомобилях: 


$5 = {Ам Е - Ку - ЕЁ СМ М, - Су- М, СбМУА, - СУ-ЗА, КУ С, 
- Ам - С, - Еу- Му- А, - Ру - М\уА, - Еу Му- А, 
Еу - Му-А, Еу МУА, - Еу- 6}. 
Выберем следующую интерпретацию / = {А, Р С, - М, 4}, на множестве 
элементов базы зададим порядок А > (> А> М>А. | 
Множество дизъюнктов {- Ам - С, - Ам- ЕЁ Ку С} является семантиче- 


ским конфликтом (рис. 21.13). Дизъюнкт - А является построенной по се- 
мантическому конфликту резольвентой 


{- Риу- (0, - Ку- Е Ку В >--Е 


В.: КУуС -Ем-С С>Е 
В.: Ву-Е К уи-Е К>Е 
В.: -Е 


3: 
Рис. 21.13. Построение семантического конфликта 


Пусть / — интерпретация некоторого множества дизъюнктов 5; Р — порядок 
на элементах базы. Вывод из множества 5 называется семантическим или Р1- 
выводом, если каждый дизъюнкт вывода либо принадлежит 5, либо является 
Р1-резольвентой. 


Р1-вывод дизъюнкта [1 называется Р/-опровержением. 


Об Олимпиаде 


В Олимпиаде по математике участвовали три ученика (обозначим их 4, В, С). 
Когда А подошел к учителю узнать об итогах, тот ему сказал: "Если победи- 
тель ты, а не В, то и С также победитель". Второй ученик получил следую- 
щий ответ: "Если С — победитель, то либо ты, либо А также победители". 
Встретив ученика С, учитель произнес: "Если А — победитель, то ты точно 
не победитель". Чтобы утешить своих учеников, преподаватель на прощание 
сказал: "Среди вас точно есть победитель". Ученики предположили, что 
преподаватель не шутит и все его высказывания истинны. Является ли уче- 
ник В победителем? 
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че "%поиьзованием чауасспу 


Обозначим через А утверждение "А — победитель Олимпиады" (соответ- 
ственно для Ви С). Утверждения учителя и предполагаемое следствие за- 
пишутся формулами: 


ОА: А&-В-С 
О ЮР: С > Ау В 


0 В: А - С 
О Е: Ау Ву С 
О С: В 


Построим множество дизъюнктов 5 
5 = {- Ау Ву С, Ау Ву - С, - Ау- С Ам Ву С, - В}. 


Выберем интерпретацию / = {- А, В, - С} и определим порядок А> В > С. 
Интерпретация / разбивает исходное множество 5 на два: 


>! = {7 Ам Ву С, Ам Ву - С, - Ау - С АУ Ву С}; х={- В. 


Приведем семантическое опровержение, указывая семантический конфликт` 
и построенную по нему Р]-резольвенту: 


{- В, Ау Ву С > АМС 
{Ау С, - В, - Ам ВУ С > С 
{С - В Ам Ву- СЪА. 
{А С-АУ- ба. 


На рис. 21.14 изображено дерево, соответствующее построенному Р]- 
опровержению. 


—В АУВУС 


А\С 


-АуВуС 
А\уВу-С 


-Ам-С 


Рис. 21.14. Семантическое опровержение для задачи об Олимпиаде 


Теорема о полноте метода 
семантической резолюции 
Пусть 5 — противоречивое множество ДИЗЪЮНКТОВв, /— произвольная ин- 


терпретация множества 5; Р —упорядочение на множестве элементов базы 
А. Существует Р]-опровержение в 5 
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Доказательство. Пусть множество /А состоит лишь из одного элемента О. Так 
как множество дизъюнктов 5 противоречиво, то среди дизъюнктов 5 есть 
дизъюнкты Ои - О. Поскольку один из дизъюнктов О или - О ложен в /, 


то можно построить Р]-резольвенту дизъюнкта 0. Для этого случая теорема 
доказана. 


Допустим, что теорема верна в тех случаях, когда множество А состоит из 1 
элементов, где | <17< и. Рассмотрим случай, когда множество А состоит из 
п+1 элемента. При доказательстве исследуем два варианта. 


Предположим, что множество 5 содержит единичный дизьюнкт [, ложный 
в интерпретации /. Построим множество 5” следующим образом: исключим 
из множества 5 все дизъюнкты, содержащие литерал [, а из оставшихся 
дизъюнктов вычеркнем литерал - [. Так как 5 противоречиво, то противо- 


речивым будет и построенное множество 5”. Множество элементов базы для 
5” содержит менее п+| элемента, поэтому по индукционному предположе- 
нию существует Р]-опровержение 0” в 5*. 


При построении Р]-опровержения в 5 будем исследовать каждый дизъюнкт 
Р!-вывода 2" в 5". Предположим, что дизъюнкт р; в р” получен из семан- 
тического конфликта вида: 


<Е!,Е›,..., Ек,[,М >. 


Если дизъюнкт М” был получен из дизъюнкта М вычеркиванием литерала 
- [, то будем рассматривать семантический конфликт 


<Е,, Е... Е”, , М>, 


0? 
который порождает тот же дизъюнкт. Если дизъюнкт Ё” получен из дизъ- 
юнкта Е; вычеркиванием литерала - [, то будем рассматривать его как Р|- 


резольвенту семантического конфликта <[, Ё>. После описанных преобра- 
зований мы получим Р|[-вывод дизъюнкта р. из множества 59. Выполняя 
преобразования над каждым дизъюнктом Р1- -опровержения 0“ в 5*, 
строим Р|]-опровержение Дв 5. 


Пример построения семантического 
опровержения: вариант 1 


Рассмотрим следующее множество ДИЗЪюНнКктТов: 
5 = {- Ам В, - Ву Су-А, мА, ЭБу- С - ОуА- В. 


База множества 5 состоит из элементов {А, В, С, 0}. Зададим порядок 
РА>В>С> О. 


Возьмем интерпретацию / = (А, - В, С, 9}. Множество 5 содержит единич- 
ный дизъюнкт - О ложный в /. Построим множество 


= {- Ау, - Ву Су-А, А, - С. 
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База множества 5” содержит три элемента. Построим Р]-вывод О” дизъ- 
юнкта П из 5": 


<- АуВ, А>- В: 
<В, - С-Ач- Ву С>->-А: 
<-АА>->0. 


На рис. 21.15 изображено дерево, соответствующее Р]-опровержению Ш” в 
_5”. Исследуя каждый дизъюнкт построенного вывода, построим по описан- 
ным правилам Р]-опровержения Дв ›5: 


<- Ам БВ, - ), РуА>->В 
<- р, Бу-С>->-С 
<В, - С - Аму- ВуС>>-А 
<- А, - ), БУА>-0. 


—А В А 


-Ах-ВуС 


А 


Рис. 21.15. Построение семантического опровержения для $5 * 


На рис. 21.16 изображено дерево, соответствующее Р]-опровержению Д в 5. 
В нем содержатся те элементы, которые были добавлены при исследовании 
вывода /)”. 


Рис. 21.16. Восстановленное семантическое опровержение для $ 


Теперь предположим, что множество 5 не содержит единичного дизъюнкта, 
ложного в /. Выберем наименьший элемент 7 и поступим следующим обра- 
зом: в качестве Ё выберем либо 2, либо - 1, т. е. тот литерал, который ло- 
жен в /. Множество 5” строим следующим образом: вычеркиваем все дизъ- 
юнкты, содержащие - [, из оставшихся дизъюнктов вычеркиваем дизъюнкт 


[. Так как 5 — противоречиво, то противоречивым будет и построенное 
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множество 5”. База множества 5” содержит не более, чем и элементов, по- 
этому по индукционному предположению существует Р]-опровержение 2)! в 
5”. Пусть 2› — вывод, полученный из О! возврашением литерала [, в те 
дизъюнкты, из которых он был вычеркнут. Вывод 05 также является семан- 
тическим выводом, т. к. [ — минимальный литерал, ложный в /. Семанти- 
ческий вывод 0.5 является выводом в 5 дизъюнкта П или дизъюнкта [. 
В первом случае теорема доказана. 


Рассмотрим случай, когда 0)› является семантическим выводом в 5’ дизъ- 
юнкта Д: 21, 22, ..., [. Исследуем множество дизъюнктов 5 ‹/ {В}. Это мно- 
жество содержит единичный дизъюнкт, ложный в интерпретации /. По до- 
казанному ранее (вариант 1) существует семантический вывод Оз дизъюнкта 
О из множества 5 \/ {2}: Ть, ТГ», ..., т®> 0. 


Выбираем наименьшее /, такое, что 7; совпадает с [. Рассматриваем вывод Ё 
во. (1, 22, ..., С. Так преобразованный вывод Оз будет Р!-выводом @ из 
множества дизъюнктов 5. Теорема доказана. 


Пример построения семантического 
опровержения: вариант 2 


Рассмотрим множество дизъюнктов: 
5 = {- Ам Ву С, - СуАм В, - Ау- С, Ам Ву С, - В}. 


Выберем интерпретацию / = {- А,- В, С}, определим порядок С> В>А. 


Рассматриваемое множество 5 не содержит единичного дизъюнкта ложного 
в Г Выберем наименьший элемент А, он ложен в Г Множество 5” строим 
следующим образом: вычеркиваем все дизъюнкты, содержащие - А, из ос- 


тавшихся дизъюнктов вычеркиваем дизъюнкт А: 
5” = {- Су В, Ву С-В. 
Так как 5 противоречиво, то противоречивым будет и построенное множе- 
ство 5“. Семантическое опровержение 2! в 5*: 
<Ву- С, Ву С> - В; 
<В, - В> >. 


При построении вывода /[) возвращаем литерал А в те дизъюнкты, из кото- 
рых он был вычеркнут: 


<Ау Ву- С АуВуС> > АУ В 
<Ау В, -В>->А. 


Рассмотрим множество 5 ‹/ {4}, в нем есть единичный дизъюнкт А, ложный 
в интерпретации /. Следовательно, можно построить Р]-опровержение ДР: в 
5 {4}: 


<А, - АУ С>->-С. 
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` 


<- С, А, Ву Су- А> - В; 
<В, - В> >. 


Преобразовывая Р][-опровержение 0.3, построим Р[-вывод дизъюнкта из 
множества дизъюнктов ь5: 


<Ау Ву- С АуВуС> > Ау В 
<АуУуВ-В>->А; 
<А, Ам С>->- С 
<- С А, Ву Су-А> - В; 
<, - В>- 0. 


Упражнения 


1. Постройте семантическое опровержение для задачи о формировании 
экипажа при заданной интерпретации / = {= С, М, В}. 


‚2. Постройте семантическое опровержение для задачи о поиске острова со- 
кровищ при определенном порядке Р: С>А>В>0> Е>Х> 7У> /. 
3. Постройте семантическое опровержение для задачи об автомобилях. 


^ 


Задания по программированию 


1. Напишите сценарий, который по заданному множеству дизъюнктов © и 
интерпретации строит два множества дизъюнктов: в первое множество 
включаются все дизъюнкты, истинные в заданной интерпретации, во 
второе — ложные. 


2. Напишите сценарий, который по заданному множеству дизъюнктов 5, 
интерпретации /и порядку Р строит семантическое опровержение в 5. 


ь 


Положительная гиперрезолюция 


Рассмотрим некоторые частные случаи семантической резолюции. 


Дизъюнкт называется положительным, если его литералы не содержат зна- 
ков отрицания, например, следующие дизъюнкты положительны: 


А, Ам С, Ву С\УА. 


Дизъюнкт называется отрицательным, если все его литералы содержат знаки 
отрицания, например, следующие дизъюнкты отрицательны: 


- А, - Ау- С, - Вм- Су-А. 
Дизъюнкт называется смешанным, если он не является ни положительным, 
ни отрицательным, например: 


= Ам С Ви СУ-А. 
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Положительной гиперрезолюцией называется семантическая (Р|-резолюция), 
в которой любой литерал интерпретации содержит знак отрицания. Гиперре- 
золюция называется положительной, потому что все Еги Р]-резольвенты при 
такой интерпретации положительные дизъюнкты. Положительная гиперрезо- 
люция является частным случаем семантической резолюции. 


Расследование хищения 


Рассмотрим следующую задачу. При расследовании дела о хищении уста- 
новлено: 


О никто, кроме А, В, С, в деле не замешан; 

СО Ане идет на дело без, по крайней мере, одного соучастника; 
С С невиновен. 

Спрашивается, виновен ли В? 


Запишем известные факты и предполагаемое следствие с помощью формул 
исчисления высказываний: 


ОА: Ау ВуС 
ОБ: А ВуС 
ОБ:-С 
О СВ 
Построенное множество дизъюнктов будет иметь вид: 
5 = {Ам Ву С, - Атм Ву С, - С-В}. 
Зададим порядок Р: А > В>С. Рассмотрим интерпретацию [= {- А,- В,- С}. 
Исходное множество 5 разбивается на два, »1 и »2, следующим образом: 
у! = {- Ам Ву С, - С, - В}; 

у> = {Ам Ву С}. 

Построим вывод дизъюнкта Ш из 5: 
<Ау Ву С - Ау Ву С > -> Ву С; 
<ВуС-В>-- С: 
<сС-С>->0. 


Вывод является положительной гиперрезолюцией, все ЕЁ; в семантическом 
конфликте положительны, любая семантическая резольвента также положи- 
тельна. 


Дерево вывода для положительной гиперрезолюции представлено на 
рис. 21.17. Положительная резолюция соответствует построению вывода, 
начиная с аксиом. 
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-АУВУС 
А\УВ\усС 


ВУС —В 


Рис. 21.17. Положительная гиперрезолюция для задачи о расследовании 


Если же на множестве элементов задан порядок Р. С>А> В, то Р|- 
опровержение будет следующим: | 


<АчуВмчС- С>-> Ам В; 
<Ам В, - Ау Ву С> -› Ву С; 
<ВУС,-С> - В; 
<вВ, - В>- С. 


Упражнение 

Постройте семантическое опровержение, являющееся положительной ги- 
перрезолюцией, для задач: 

О о формировании экипажа; 

С о поиске острова сокровищ; 

С] об автомобилях. 


Задания по программированию 


1. Напишите сценарий, который по заданному множеству дизъюнктов 5 
строит семантическое опровержение, являющееся положительной гипер- 
резолюцией. 


2. Напишите сценарий, который по заданному множеству дизъюнктов 9 и 
семантическому выводу определяет, является ли вывод положительной 
гиперрезолюцией. 


Отрицательная гиперрезолюция 


Отрицательной гиперрезолюцией называется семантическая (Р]-резолюция), в 
которой любой литерал интерпретации не содержит знак отрицания. Гиперре- 
золюция называется отрицательной, потому что все Ел и Р|[-резольвенты при 
такой интерпретации — отрицательные дизъюнкты. Отрицательная гиперре- 
золюция является частным случаем семантической резолюции. 
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Отрицательная гиперрезолюция 
для задачи о расследовании 


В предыдущем примере исследовалось множество дизъюНнКктов. 
5= {Ау Ву С -АуВУС- С-В, 


Зададим порядок Р А> В> С. Рассмотрим интерпретацию / = (А, В, С}. 
Исходное множество 5 разбивается на два, У и 2, следующим образом: 


У = {Ам Ву С, - Ау Ву С}; 
>) = {> С - В}. 


Построим вывод дизъюнкта [ из 5, который в данном случае будет отрица- . 
тельной гиперрезолюцией: 


<- В - С- Ач ВуС>->-А; 
<- А, - В, - С АуВуС>- 0. 


Дерево вывода для отрицательной гиперрезолюции представлено на 
рис. 21.18 и, как видно, вывод строится с отрицания заключения. Допустив, 
что заключение ложно, выводится противоречие из этого допущения. 


—В С -АУВУС 


Рис. 21.18. Отрицательная гиперрезолюция 
для задачи о расследовании 


Упражнение 

Постройте семантическое опровержение, являющееся отрицательной гипер- 
резолюцией, для задач: 

С о формировании экипажа; 

О о поиске острова сокровищ; 

С] об автомобилях. 


Задания по программированию 


1. Напишите сценарий, который по заданному множеству дизъюнктов 5 
строит семантическое опровержение, являющееся отрицательной гипер- 
резолюцией. 
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2. Напишите сценарий, который по заданному множеству дизъюнктов 5 и 
семантическому выводу, определяет, является ли вывод отрицательной 
гиперрезолюцией. 


Стратегия поддержки 


Как и рассмотренные стратегии, стратегия поддержки направлена на то, 
чтобы не порождать лишние дизъюнкты. 


Рассмотрим множество дизъюнктов 5. Подмножество 7 множества 5 назы- 
вается множеством поддержки, если множество 5-Т выполнимо. 


Резолюцией с поддержкой называется резолюция, примененная к двум 
дизъюнктам, не принадлежащим одновременно множеству 55- 7. 


Вывод с поддержкой — это вывод, в котором любая резолюция — это резо- 
люция с поддержкой. 


Опровержение с поддержкой — это вывод с поддержкой дизъюнкта 0. 


Пример использования 
Рассмотрим следующее множество дизъюнктов: 
5 = {Су Мур, - Су Му В, Му- ), - Му, - Ус - 0. 


В качестве множества Т возьмем множество Т = {- Му р, - Ву З. Мно- 
жество .5— Г состоит из дизъюнктов 


5-Т= {Су Мур, - Су Мур, Му-Ь,- В}. 


Оно выполнимо, для того чтобы убедиться в этом, достаточно выбрать ин- 
терпретацию, в которой литерал М истинен, а литерал О ложен. Множество 
Г является множеством поддержки ‘для 5. Следующий вывод представляет 
собой опровержение с поддержкой: 


<Су Му О, - Му)>-› Суп; 
<- Су Мм, - Му,>-- Су: 
<Су в, - Су)>- 10; 
<- р )>->0. 


Теорема о полноте 
метода поддержки 


‘Пусть 5 -— противоречивое множество дизъюнктов, Г— подмножество 5, 
такое, что 5-7 выполнимо. Существует вывод с поддержкой дизъюнкта П из 
множества ‚5, в котором 7 является множеством поддержки. 
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Доказательство. Так как множество 5-7 выполнимо, то существует интер- 
претация /, в которой оно истинно. Будем рассматривать эту интерпрета- 
цию. Выберем любое упорядочивание Р для элементов базы. По теореме о 
полноте метода семантической резолюции существует Р|-вывод О дизъюнк- 
та П из множества 5. Рассмотрим произвольный семантический конфликт, 
порождающий семантическую резольвенту вывода Д: <Ё\, Ё5, ..., Ё, №> для 
4> 1. Все дизъюнкты Ё; ложны в интерпретации /, поэтому в семантическом 
конфликте при построении резольвенты А; + 1 по дизъюнктам К; и Ё; оба 
дизъюнкта не принадлежат одновременно множеству 5-7. Следовательно, 
по любому семантическому конфликту может быть построен вывод с под- 
держкой. Теорема доказана. 


Применение теоремы в задаче 
формировании экипажа 


В задаче о формировании экипажа было построено и исследовалось сле- 
дующее множество дизъюнктов: 


5 = {Су Му, - Су Му, Му- в, - Му, - ЭусС-в. 


Рассмотрим множество ТГ = {- Му В, - Ву С, - В}. Для того чтобы убе- 


диться, Что оно является множеством поддержки, достаточно показать, что 
множество 


5-Г= {Су Му В, - Су Му, Му- 0} 


выполнимо. Все дизъюнкты множества 5-Т истинны в любой интерпрета- 
ции, в которой истинен литерал М. Рассмотрим интерпретацию / = 
= {С, М, 6}, зададим порядок С > М > В. Мы можем построить следующий 
семантический вывод дизъюнкта [1 из множества ›5: 


<- р, - Му)>->-МмМ;: 
<- М -)- Су МуУуЬ>->-С. 
<- С - М, - В Су МУО>-> 0. 


По только что построенному семантическому выводу может быть построен 
следующий вывод с поддержкой: 


<- р, - Му) > ->-М; 
<- М, - Су Му) >> - Су; 
<- р, - Сур>-- С: 
<- С Су МУ, >> Му 0: 
<- М, МУО>- 0: 
<=) 0>->щ. 


494 Часть /!!. Решение вычислительных задач с использованием /ауа5спрЕ 


Упражнение 


Постройте вывод с поддержкой для задач: 
О о поиске острова сокровищ; 


С] об автомобилях. 


Задания по программированию 
1. Напишите сценарий, который по заданному множеству дизъюнктов 5 
строит вывод с поддержкой. 


2. Напишите сценарий, который по заданному множеству дизъюнктов 5 и 
выводу определяет, является ли вывод выводом с поддержкой. 


Заключение 


Приведенные в книге примеры демонстрируют широкие возможности языка 
ЛауаэспрЕ. Но многие вопросы, связанные с созданием и использованием 
сценариев Гауа$сирь, остались не рассмотренными, а задачи не решенными. 
Однако первые шаги сделаны, и далее читатель может писать собственные 
сценарии и приступать к самостоятельной разработке \МеБ-приложений. 


Сайт разработчиков Лауабсире Вр: / /деуеюрег.песаре.сот/Лгагу/воситешайоп/ 
содержит информацию, которая будет полезна при создании программ. 


Для дальнейшего изучения методов современного программирования реко- 
мендуется обратиться к литературе [1, 2, 10, 12]. 
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Предметный указатель 


Т 


Теорема: 
о логическом следствии 429, 430 
о резольвенте 443 
Терм 376 
Тип данных: 
АтсНоп 9 
обес! 9 


Ф 


Форма: 
дизъюнктивная нормальная 434 
каноническая 434 
Формула 376 
выполнимая 422 
постоянная 416 


499 


тождественно истинная 422 

тождественно ложная 422 
Фрейм 186 

плавающий 201] 
Функция 15 

1$ Мам 301 

Митфбег 294 

рагзе Ноа" 301 

рагзе[пе 300 

5еГипеоцЕ 256 

э(иив 294 


Ч 


Число: 
автоморфное 294 
Армстронга 297 
дружественное 231 
совершенное 230 
Чистый литерал 449 


В магазине представлена литература по 


компьютерным технологиям 
радиотехнике и электронике 
физике и математике 
экономике 
медицине 


и др. 


Низкие цены 
Прямые поставки от издательств 
Ежедневное пополнение ассортимента 
Подарки и скидки покупателям 


Магазин работает с 10.00 до 20.00 
без обеденного перерыва 
выходной день — воскресенье 


ими == 


`\ Вы найдете необходимые сведения о языке 
"” создания сценариев Уауа$спрф, изучите основы = 
современного программирования и сможете раз- 
„работать оригинальный интерактивный сайт. Книга —— 
‚поможет овладеть секретами языка Уауа$спре, 
=} базовым инструментарием программиста, а также+ ___ 
‚ воспользоваться математическими идеями, связан- 
/|Ными С искусственным интеллектом. Подробные 
\} примеры решения задач и упражнения для само- 
"” стоятельного закрепления предложенного материа-— 
ла позволят Вам получить практический опыт уже 
_ |на этапе изучения языка. 
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